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General Information 


The Corvus Concept System Library User Guide is a reference guide 
for Corvus Concept Library support. This guide is not a 
tutorial. Readers should be familiar with Pascal programming 
concepts. 

This guide briefly describes the functions and procedures found 
in the Corvus Libraries. Some of the functions and procedures 
are meant to be used by advanced programmers. When this is the 
case; this guide refers to one of the Corvus technical reference 
manua 1 s. 


About CCLIB 

The CCLIB. OBJ library file contains support units and subroutines 
for the Corvus Concept in a Pascal environment. 

fo use CCLIB, units must be declared in the USES section of the 
program. In a program/ this section appears immediately after 
the program heading. In a unit/ this section appears immediately 
after the interface heading. 

The format of the uses section is as follows: 

USES -C*U /VolName/CCLIB> ccDEFN, Oth erUn i tName Si 

For example/ if CCLIB is in a volume named CCUT1L and the unit 
being used is ccCRTio; then the uses section would look like 

this: 

USES -C*U /CCUTIL/CCLIB3- ccDEFN; ccCRTio; 

If another library or unit in a separate file is being used along 
with CCLIB/ the volume and file name where this can be found must 
be specified: 

USES f*U /CCUTIL/CCLIB> ccDEFN. ccCRTio, 

<*U /KLLVOL/MUSIO Sounds; 

When using units in CCLIB. unit ccDEFN must be declared before 
other units, if it is needed. Other CCLIB units may be declared 
in any order. In the above example for instance, ccCRTio could 
not be declared before ccDEFN. 
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The order of units in library CCLIB is as follows: 


ccDEFN 
c cHEXOUT 
ccLNGINT 
c cCLKi o 
c cCRT i o 
ccDCPio 
ccDIRi o 
c cGRF i o 
c cLBL i o 
ccOMNio 
c cOTC i o 
c c WND i o 

T ur 1 1 eGrap hies 


- Global definitions 

- Output hexadecimal numbers 

- Long integer manipulations 

- Clock control unit 

- Display control unit 

- DataComm/Pr inter control unit 

- Directory control unit 

- Graphics display unit 

- Function key label unit 

- Omninet interface unit 

- Omninet Transporter interface unit 

- Window control unit 

- Turt 1 eGrap h i c s unit 


About COl IB 


The C2L.IB. OBJ library file contains units related to the Corvus 
disk controller. Included in this library is a unit to 
communicate directly u/ith the Corvus disk controller, a unit to 
interface with the disk controller pipe commands, and a unit to 
interface with the disk controller semaphore commands. 


When linking programs that use units from C2LIB, libraries must 
be specified in the order shown in this example: 

LINKER - MC68000 Object Code Linker n. n dd-mmm-yy 

(C) Copyright 1982 Silicon Valley Software. Inc. 


Listing file - <return> 

Output file - pgmname 
Input file [. QBJ3 - pgmname 
Input file C. OBJT - /CCUTIL/C2LIB 
Input file C. OBJT - /CCUTIL/CCLIB 
Input file [ . OBJT - ,'PASLIB 
Input file [.OBJT — <return> 
Linking segment ' ' 

Initial memavail = nnnnnn 
Final memavail = nnnnnn 


- no listing file 

- executable program name 

- output of Pascal compiler 

- Concept disk unit library 

- Concept Pascal library 

- system Pascal library 

- end of input files 


The output is executable. 
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The Support Units 

CCLIB contains three support units uihich are used by other units. 
Each unit is described below. 

ccDEFN Unit 

The Corvus Concept Global Definitions Unit defines system-wide 
constants and data structures. 

The ccDEFN unit USES no other units. Several others units use 
ccDEFN. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIBJ ccDEFN; 

ccDEFN Unit Constants 

Constants defined in ccDEFN are: 


Corvus Concept I/O Result Codes 
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DaBSSXC-f* 


i Identifier ! Value ! Description 


I IOEwrprot 


I Device write protected 


i IOEseek 


Seek error 


IOEinvb 1 k 


IOEnotrn 


I IOEtimot 


IOEnob uf 


IOEf 1 p to 


IOEnoTO 


IOEnfmtd 




! Invalid block number 


Transporter not ready 


Timed out waiting for Omninet event 


! Read without a valid write buffer 


Timeout error 


Cannot restore to track 0 


! Disk not formatted 


lOEinvsct 


Invalid sector length error 


IOEwrngC 


Read wrong track 


IOEbdtrk 


IQEquereq 


IOEwnd fn 


IOEwndbe 


IOEwnd c s 


IOEwnd dc 


IOEwnd ds 


IOEwnd iw 


IOEwndwr 


IOEwndwn 


Track marked as bad (IBM spec) 


Queued request warning 


i Invalid window function 


Window create boundary 


I Invalid character set 


Delete current window 


D.-lete system window 


Inactive window 


Invalid window record 


Invalid system window number 
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Corvus Concept I/O Result Codes (continued) 


4>ssBsxaEESz& a 

t Identifier 


IOEnod sp 


IOEnokyb 


IOEnot im 


IOEnoomn 


IOEnoprt 


IOEnf drv 


IOEnod tc 


I IOEtblid 


IOEtblfl 


I IOEtbliu 


IOEkybte 


I IOEuiopm 


IOEprmln 


IOEfnccd 


IOEc 1 kmf 


lOEirdsb 1 


I IOEordsbl 


IOEi wd sb 1 


lOEouid sb 1 


IOEb s z err 


IOEws z err 


IOErs zerr 


izcissssmi 


i Value ! Description 


Display driver not available 


! Keyboard driver not available 


Timer driver not available 


I OMNINET driver not available 


Printer driver not available 





No floppy drive at slot 


DataComm driver not available 


Invalid table entry ID 


I Table full 


Table entry in use 


I Keyboard transmission error 


Invalid unit I/O parameter 


Invalid parameter block length 


Invalid function code 


Clock (hardware) malfunction 


Input to read buffer disabled 


Output to read buffer disabled 


Input to write buffer disabled 


Output to write buffer disabled 


Buffer size error 


Write size error 


Read size error 
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Corvus Concept I/O Result Codes (continued) 


:=asB = =sBSBs-j 

Identifier 

hBaanaaBH 

1 Value 1 

hB3CSESCassaBSBBBBBBBEBaKSBXBSa=aaEBBSC 

Description 

IOEuarter 

67 1 

UART hardware error 

IOEpaderr 

68 : 

Proportional spacing error 

IOEdrvTO 

70 ! 

Corvus drive time out 

lOEbad cmd 

■KQB 

Invalid Corvus disk command 

IOEsvrdrv 

! 72 ! 

Severe Corvus disk hardware problem 

IOEtrnpdt 

! 73 ! 

Error in Transporter command block 


Miscel laneous 

+ S«BB8aBSaa:8iSaBX8SS& + XBBBSSSSSBBB8IBaBUBa*aBaSMXBa«aaBBBES-f 


i Identifier ! Value ! Description ! 

4* s s: =s as as =s =s si; a: =: =s as a: a as ac aa b; ss >f- as ae as as a: e s s aa s b as aa ac s ai at as as b as s « as bb ac as ae ac s; s as s ss as ss s: as -f- 

! MaxWindow ! 20 ! Maximum number of system windows ! 


Sy sComPLoc 

! *0180 ! 

System common pointer location 

LongStrMa x 

! 1030 ! 

Maximum "long" string length 
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ccDEFN Unit Types 

Data types defined in ccDEFN are: 


1 Data Type 

« + = 

» 

Definition 



SB&XBS+ 

1 

1 

1 Byte 

1 

1 

-128. . 127i 



i 

1 

i Bytes 

1 

< 

array CO. . 327663 

of 

Byte; 

1 

1 

i Words 

1 

array CO. . 327663 

of 

integer; 

1 

1 

1 String32 

1 

1 

stringC323; 



1 

1 

! String64 

l 

1 

stringC643; 



1 

1 

! String80 

1 

str ing C803 ; 



1 

1 

! pByte 

1 

» 

'“•Byte; 



1 

1 

! pBytes 

1 

i 

A By tes; 



1 

1 

! pWords 

i 

i 

-'•Words; 



1 

1 

1 pString32 

i 

i 

"■•Str ing32; 



1 

1 

! pString64 

i 

i 

A Str ing64; 



1 

1 

1 pString80 

i 

i 

A Str ingSO; 



1 

1 
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I Data Type i Description 

i SlotType ! Device types for Concept I/O slots 


I NoDisk 



LocalDisk 

OmninetDisk 

FlpyCBDisk 

FlpyC5Disk 

FlpyASDisk 

BankDisk 

FlpyF8Disk 

FlpyF5Disk 

FlpyF3Disk 



No disk 

Corvus local disk 
Corvus Omninet disk server 
Corvus 8" SSSD floppy disk 
. . . reserved 
Apple 5" 

. . . reserved 

Corvus 8“ DSDD floppy disk 
Corvus 5" DSDD floppy disk 
. . . reserved 


I 

I 

:ssK-f 


ccDEFN Unit Variables 

Variables defined in ccDEFN are: 

None. 

ccDEFN Unit Functions and Procedures 
Procedures defined in ccDEFN are: 
None. 

Functions defined in ccDEFN are: 

None. 


September 1, 1983 


Copyright 1983 Corvus Systems< Inc. 
























Corvus Concept Pascal System Library 
Support Units 


ccHEXOUT 
Page 2-7 


ccHEXOUT Unit 

The Output Hexadecimal Numbers Unit is used for displaying 
hexadecimal data. Normally> this unit is only needed during 
system development. 

The ccHEXOUT unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES -£*U /CCUTIL/CCLIB> ccDEFN. ccHEXOUT; 


ccHEXOUT Unit Constants 

Constants defined in ccHEXOUT are: 
None. 


ccHEXOUT Unit Types 

Data types defined in ccHEXOUT are: 
None. 


ccHEXOUT Unit Variables 

Variables defined in ccHEXOUT are: 
None. 
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ccHEXOUT Unit Functions and Procedures 
Procedures defined in ccHEXOUT are: 


Output byte in hex 

Output integer in hex 

Output long integer in hex 

I DumpHex ! Dump memory in hex bytes 

+ + 

Functions defined in ccHEXOUT are: 

None. 

ccHEXinit Procedure 

ccHEXinit initializes the ccHEXOUT unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccHEXinit; 

An example of this procedure is: 

c c HE X i n i t • 



I Procedure 

! ccHEXinit 

+ 

I PutHexByte 

+ 

i PutHexWord 

+ 

I PutHexLong 
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PutHexByte Procedure 

PutHexByte writes to the current OUTPUT device (usually the 
display screen) the hexadecimal equivalent of the specified byte 
value. The definition of this procedure is: 

PROCEDURE PutHexByte (Bvalue: byte); 

1 Parameter i Data Type ! Description ! 

I Bvalue I byte I Byte value to display '■ 

+ + + + 

The procedure outputs 2 hexadecimal characters. 

An example of this procedure is: 

var b: byte; 

b : * 32; 

PutHexByte <b>; write (' '); PutHexByte (b*2); 

The output generated is "20 40". 
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PutHexWord Procedure 

PutHexWord writes to the current OUTPUT device (usually the 
display screen) the hexadecimal equivalent of the specified 
integer value. The definition of this procedure is: 


PROCEDURE PutHexWord (Wvalue: integer); 


I Parameter ! Data Type ! Description ! 

•fnSSZSXXBCXSBX^cSXSSXSBaBSBBBB'fBSKSBBBMSKBBKBBIBBZBPSBginiBaeKXESEas-f 

i Wvalue i integer i integer value to display ! 

+ + + + 


The procedure outputs 4 hexadecimal characters. 

An example of this procedure is: 
var i: integer; 
i : = 32; 

PutHexWord (i); write (' '); PutHexWord (i*2>; 

The output generated is "0020 0040". 
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Put He xLong Procedure 

PutHexLong writes to the current OUTPUT device (usually the 
display screen) the hexadecimal equivalent of the specified long 
integer value. The definition of this procedure is: 

PROCEDURE PutHexLong (Lvalue: longint); 

t Parameter i Data Type ! Description ! 

I Lvalue i long integer ! Long integer value to display ! 

+ + + + 

The procedure outputs 8 hexadecimal characters. 

An example of this procedure is: 

var li: longint; 

li : = 32; 

PutHexLong (li); write (' '); PutHexLong (li*2); 

The output generated is "00000020 00000040". 
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DumpHex Procedure 

DumpHex writes to the current OUTPUT device (usually the display 
screen) a byte hex dump. The definition of this procedure is: 

PROCEDURE DumpHex (BufPtr: pBytes; Len: integer); 

i Parameter ! Data Type ! Description ! 

i BufPtr ! pBytes ! Dump buffer pointer 

+ + 

Len ! integer ! Length of buffer to dump 


The procedure outputs a byte hex dump of memory pointed to by 
BufPtr for Len bytes. 

In the following program DumpHex is used to dump 200 bytes 
starting at location *700. 

program hextst; 

uses <*U /CCUTIL/CCLIB} ccDEFN, ccHEXOUT; 
var p: pBytes; 
beg in 
ccHEXinit; 

p : = pointer (*700); 

DumpHex (p<200); 
writeln; writeln; 
end . 

The output of this program is: 


05 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

38 

00 

00 

00 

00 

00 

00 

00 

01 

11 

30 

00 

01 

11 

90 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01 

OD 

4E 

00 

08 

D5 

5E 

00 

08 

A4 

90 

00 

00 

00 

00 

00 

00 

02 

CF 

02 

2F 

00 

7E 

00 

82 

00 

OE 

00 

00 

02 

2F 

00 

1C 

00 

24 

00 

60 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

03 

00 

00 

02 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

oo 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 
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ccLNGINT Unit 

The Long integer Manipulations Unit is used to assemble and 
disassemble integers and long integers 

The ccLNGINT unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB> ccDEFN, ccLNGINT; 

ccLNGINT Unit Constants 

Constants defined in ccLNGINT are: 

None. 

ccLNGINT Unit Types 

Data types defined in ccLNGINT are: 

None. 

ccLNGINT Unit Variables 

Variables defined in ccLNGINT are: 

None. 
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ccLNGINT Unit Functions and Procedures 
Procedures defined in ccLNGINT are: 


I Procedure ! Description 



By teLInt 


Convert bytes to long integer 


Byte2Int i Convert bytes to integer 


Functions defined in ccLNGINT are: 


i Function 

Description 

! LIntByte 

Get byte value from long integer 

! Int2By te 

Get byte value from integer 


I 
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ByteLInt Procedure 

ByteLInt places four bytes into the specified long integer. The 
definition of this procedure is: 

PROCEDURE ByteLInt (VAR Num: long inti 

By teO. By tel. By te2. By te3: byte); 


I Parameter I Data Type ! 

•fsEsasaKsasEfsEsasasessrsaEC'l 

! Num I long integer I 





The procedure constructs a long integer from four bytes. 

An example of this procedure is: 

var li: longint; b0»bl.b2, b3: byte; 

bO : = *12; 
bl : = *34; 
b2 : = *56; 
b3 : = *78; 

ByteLInt < 1 i , bO, b 1 . b2, b3> ; 

After this code is executed, li contains *12345678. 
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Byte2Int Procedure 

Byte2Int places two bytes into the specified integer. The 
definition of this procedure is: 

PROCEDURE Byte2Int (VAR Num: integer; ByteO, Bytel: byte); 

i 
I 

BaBBsagsB+ 

< 
i 

+ 

(MSB) ! 

+ 

(LSB) i 
+ 

The procedure constructs an integer from two bytes. 

An example of this procedure is: 

var ii: integer; bO, bl: byte; 

bO : = $AB; 
bl : = *CD; 

Byte2Int (ii,bOibl); 

After this code is executed, ii contains *ABCD. 


! Parameter ! Data Type i Description 

! Num ! integer I integer result 

+ + + 

! ByteO I byte ! Byte 0 of integer 

+ + + 

i Bytel i byte ! Byte 1 of integer 

+ + + 
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LIntByte Function 

LIntByte returns the specified byte of a long integer. The 
definition of this function is: 


FUNCTION LIntByte (WhichByte: integer; Num: longint): byte; 


tBSaBBSBKaBI 

1 Parameter 

B-fxBBBiaaKBBeaiMaBa 

! Data Type 

*+a 

t 

i 

Description 

i 

1 

! WhichByte 

! integer 

i 

i 

Which byte to 

return (0. . 3) ! 

S Num 

1 long integer 

i 

Long integer 

source for byte ! 


- + 





The function returns byte WhichByte from long integer Num. 
WhichByte has a range of 0 (most significant byte) to 3 (least 
significant byte). 

An example of this function is: 

var li: longint; b0>bl>b2>b3: byte; 

li := *12345678; 
bO : = LIntByte <0. li); 
bl := LIntByte (l.li); 
b2 : = LIntByte (2. li >; 
b3 := LIntByte (3<li); 

After this code is executed) bO contains *12> bl contains *34> b2 
contains *56# and b3 contains *78. 
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Int2Byt* Function 

Int2Byte returns the specified byte of an integer. The 
definition of this function is: 

FUNCTION Int2Byte (Wh ichBy te. Num: integer): byte; 


I Parameter i Data Type 


! WhichByte i integer 


long integer 


Description 

isagiaaBBBBHBBBBBaBBaBSBxaa 

Which byte to return (O. . 
integer source for byte 


The function returns byte WhichByte from integer Num. WhichByte 
has a range of O (most significant byte) to 1 (least significant 
by te ) . 

An example of this function is: 


var 

ii: integer 

; bO. bl 

ii 

= SABCD; 


bO 

= Int2Byte 

(0, ii ); 

bl 

= Int2Byte 

(1. ii); 


After this code is executed. bO contains SAB and bl contains SCD. 
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The Clock Control Unit 
ccCLKio 

The Clock Control Unit is used to interface with the Corvus 
Concept system clock. 

The ccCLKio unit USES no other units. 

The unit is included in user software by declaring: 

USES -C*U /CCUT IL/CCL IB> ccCLKioi 

ccCLKio Unit Constants 

Constants defined in ccCLKio are: 

None. 


ccCLKio Unit Types 

Data types defined in ccCLKio are: 

! Data Type I Description 

I ClkStr40 ! Clock unit string 

+ — + + » 

! stringC403; 

+ — + + 

I ClkPB ! Clock parameter block record 

+ — + + 


Day ofWeek : 

integer; 

< 

1. 

. 7 for Sun. . Sat 

> 

Month : 

integer; 

■C 

1. 

, 12 

> 

Day : 

integer; 

■C 

1. 

. 31 

> 

Hour : 

integer; 

•C 

0. 

. 23 

> 

Mins: 

integer; 

< 

0. 

. 59 

> 

Secs: 

integer; 

< 

0. 

. 59 

> 

Tenths: 

integer; 

< 

0. 

. 9 

> 

LeapYear : 

integer; 

■C 

0. 

.3 (0 = leap year ) 

> 

Year-: 

integer; 


0. 

. 99 

> 


+ 


: = = = = = = + 




+ 


+ 


+ 


+ 
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! Data Type 1 

Description 

I 

» 

.' pCl kDateRcd ! 

Date 

record 

pointer ! 

.' Cl kDateRcd ,' 

Date 

record 

( pac k ed ) ! 


year, 
day : 
month : 


O. . 100; 
0 . 31; 
O. 12; 


■C year 
•C day 
■C month 


ccCLKio Unit Variables 

Variables defined in ccCLKio are: 
None . 


ccCLKio Unit Functions and Procedures 
Procedures defined in ctCLKio are: 


.'Procedure .'Description ! 

1 rcCLKioInit ! Unit initialization ! 


Procedure 
r cCLKi o I n i t 
Cl kRead 
C 1 k Wr i te 
ClkWeekDay 
ClkDatel 
Cl k Date2 
ClkDate3 
ClkTimel 
C 1 k T ime2 


Read clock parameters 
Write clock parameters 
Get day of week string 
Get day string ( " d y-mon-y r " ) 

Get day string ("month dy< year") 
Get day string ("dy month year") 
Get time string ("hr. mi. sc") 

Get time string ("hr: mi am") 


CvDateStr ; Convert date string to date record 
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Functions defined in ccCLKio are: 
None. 


ccCLKioInit Procedure 

ccCLKiolnit initializes the ccCLKio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called The definition of this procedure is: 

PROCEDURE ccCLKiolnit# 

An example of this procedure is: 

ccCLKiolnit; 


Copyright 1983 Corvus Systems# Inc. 


September 1# 


1983 



ccCLKi o 
Page 3-4 


Corvus Concept Pascal System Library 

Clock Control Unit 


ClkRead Procedure 

ClkRead reads the system clock and places the current clock 
values in the specified clock parameter block. The definition of 
this procedure i s : 

PROCEDURE ClkRead (var CPB: ClkPB); 


! Parameter- 

1 Data Type 

= BS+SEXrB = SCSXC = EBB = BESSS: = BS = S = 

i Description 

= S3 = C 4- 

1 

1 

! CPU 

+ 

! ClkPB 

H — 

! Clock parameter block 

f 

1 


The procedure updates the following values in the specified clock 
parameter block: 


field 1 

Range 

Day of Week ! 

1 . 

. 7 for Sun. . Sat 

Month ! 

1 . 

. 12 

Day 

1 . 

. 31 

Hour ! 

0 

. 23 

Mins ! 

0 

. 59 

Secs ! 

0 . 

. 59 

Tenths ! 

0 . 

. 9 

LeapYear ! 

0 . 

.3 ( 0 = 1 eap y ear > 

Year : 

0 . 

99 


An example of this procedure is: 
var CPU: ClkPB; 

ClkRead (CPB); -C get current clock values > 

with CPU do writeln ('Current date and time is', 

Year: 4, Month: 4, Day: 4, 

Hour: 4, Mins: 4, Secs: 4, Tenths: 4); 
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ClkWrite Procedure 

ClkWrite updates the system clock with clock values in the 
specified clock parameter block. The definition of this 
procedure is: 

PROCEDURE ClkWrite <CPB: ClkPB); 


1 

Parameter 

! Data Type 

! Descr ipti on 

II 

II 

It 

II 

II 

II 

— + 

n 

CPB 

i ClkPB 


! Clock parameter block 

I 

I 







procedure updates the system clock using the following 
the specified clock parameter block: 

values 

l 

1 

Field 

! Range 



• 

i 

» 

1 

Day of Wee k 

I Computed 

by 

procedure 

• 

• 

I 

1 

Month 

0 ! 

H 

H 

- — ■ 



• 

1 

1 

1 

Day 

! 1 . . 31 



t 

1 

1 

1 

Hour 

! 0. . 23 



1 

1 

1 

1 

Mins 

! 0. . 59 



1 

t 

1 

1 

Se c s 

! Set to 0 

in 

procedure 

1 

1 

« 

i 

Tenths 

! Set to 0 

in 

procedure 

1 

I 

1 

l 

L eap Year 

! Computed 

by 

procedure 

i 

< 

l 

l 

Year 

! 0. . 99 



i 

1 
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An example of this procedure is: 

var CPB; ClkPB; newYear . newMonth . neuDay : integer; 


{ more code > •{ get new date > 

ClkRead (CPB); < get current clock values > 

with CPB do begin 

Year : = newYeav, -t set new year > 

Month : = newMonth; < set new month > 

Day := newDay; < set new day > 

end ; 

ClkWrite (CPB); -C update clock values > 
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ClkWeekDay Procedure 

ClkWeekDay moves the current day of week to the specified string. 
The procedure reads the system clock before returning the date 
string. The definition of this procedure is: 

PROCEDURE ClkWeekDay <var DateStr: ClkStr40>; 

■fcc=: = rsrs = =: = 4-s=;=:=:=;=; = s = sa: = 3x + s = s=: = = = = £a;s = =;rxsss Bsx=esssBSBasa = r-|- 

! Parameter ! Data Type ! Description ! 

i DateStr ! ClkStr40 ! Day of week string ! 

+ + + + 

Day of the week is one of the following: 

Sunday 

Monday 

Tuesday 

Wednesday 

Th ur sday 

Friday 

Saturday 

An example of this procedure is: 

var DateString: ClkStr40; 

ClkWeekDay (DateString), 

write In ('Today is '-DateString); 

Output from this example is: 

Today is Saturday 
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ClkDatel Procedure 

ClkDatel moves the current system date in "dy-mon-yr" format to 
the specified string. The procedure reads the system clock 
before returning the date string. The definition of this 
procedure is: 

PROCEDURE ClkDatel (var DateStr: ClkStr40); 

! Parameter ! Data Type ! Description ! 

i DateStr I ClkStr40 ! Current system date string ! 

+ + + + 

The procedure constructs a string containing the current system 
date with a two digit day, the first three characters of the 
month, and a two digit year. Date components are separated with 
a hyphen. 

An example of this procedure is: 

var DateString: ClkStr40; 

ClkDatel < DateStr ing ) ; 

writeln ('The date is ', DateStr ing ) ; 

Output from this example is: 

The date is 23-0ct-82 
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ClkDate2 Procedure 1 

ClkDate2 moves the current system date in "month dy« year" format 
to the specified string The procedure reads the system clock 
before returning the date string. The definition of this 
procedure is: 

PROCEDURE ClkDate2 (var DateStr: ClkStr40)i 

+=CSBBSSS3EB-(<sSSSSSSiSBBSa&S'fSSXSS3SXBB;&8aSCSSXBSSSE&S = BSSr3SS + 

! Parameter ! Data Type ! Description ! 

4-BSSS33SS:BSS4-aS = = SSSSSSSS3S+S8BS:SSSBCS£BSKBE. , BKX3SSrESSESBSS = B + 

! DateStr ! ClkStr40 ! Current system date string ! 

+ — — — — — — + — — — — — — — — — — ——4 - — — — — ' — “ — — — — — — — —— — — — — — — — — — — — + 

The procedure constructs a string containing the current system 
date with the full month name. a one or two digit day* and a four 
digit year. 

An example of this procedure is: 

var DateString: ClkStr40; 

ClkDate2 (DateString); 

writeln ('The date is '< DateStr ing ) ; 

Output from this example is: 

The date is October 23. 1982 
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C 1 k Da t e3 Procedure 

ClkDate3 moves the current system date in "dy month year" format 
to the specified string. The procedure reads the system clock 
before returning the date string. The definition of this 
procedure is: 

PROCEDURE C 1 k Da te3 < var DateStr: ClkStr40>; 


! Parameter { 

! DateStr ! 
+■ + 


Data Type 


Description 


8 = = CB2SS = S-|- 

I 

I 

isssssssssc-f 


ClkStr40 ! Current system date string 


The procedure constructs a string containing the current system 
date with a one or two digit day* the full month name, and a four 
digit year. This is the common European form of the date. 

An example of this procedure is: 

var DateString: ClkStr40; 

C 1 kDa te3 ( DateStr ing ) ; 

writeln ('The date is '.DateString); 

Output from this example is: 

The date is 23 October 1982 
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C 1 k Time 1 Procedure 

ClkTimel moves the current system time in "hr: mi: sc" format to 
the specified string. The procedure reads the system clock 
before returning the time string. The definition of this 
procedure is: 

PROCEDURE ClkTimel (var TimeStr: ClkStr40>; 


The procedure constructs a string containing the current system 
time with a tuio digit hour> a two digit minute, and a two digit 
second. Time components are separated with a colon. Hours are 
in the 24-hour format with a range of 0 to 23. 

An example of this procedure is: 

var TimeStrinp: ClkStr40; 

ClkTimel (TimeString); 

writeln ('The time is '< TimeStr ing ) > 

Output from this example is: 

The time is 02:21:45 


! Parameter I Data Type ! Description 

I TimeStr i ClkStr40 ! Current system time string 

+ 4 + 
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ClkTime2 Procedure 

ClkTime2 moves the current system time in "hr: mi am" format to 
the specified string. The procedure reads the system clock 
before returning the time string. The definition of this 
procedure is: 

PROCEDURE C 1 k Ti me2 (var TimeStr: ClkStr40>; 


! Parameter! Data Type [Description ! 

-t- = =: = = = = r; = 3ir.c-f = =s: = s;=; = sssassx+nEssB8KBasBBSESSESBBSSXXBSXffssss:4- 

! TimeStr ! ClkStr^O ! Current system time string ! 

+ + + + 

The procedure constructs a string containing the current system 


time with a two digit hour, a two digit minute, and an am/pm 
indicator. Hours and minutes are separated with a colon. Hours 
are in the J2-hour format If the time is between midnight and 
noon, the time has an am indicator, otherwise, the time has a pm 
indicator. 

An example of this procedure is: 

var TimeString: ClkStr40; 

ClkTimel? ( TimeStr ing > ; 

writeln ('The time is ', TimeStr i ng ) ; 

Output from this example is: 

The time is 2.21 am 


Sep tember 


1 


1983 
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CvDateStr Procedure 

CvDateStr converts a string to a packed date record. The 
definition of this procedure is: 

PROCEDURE CvDateStr (DateStr: ClkStr40; 

var Drcd: ClkDateRcd); 

! Parameter ! Data Type ! Description 

I DateStr ! ClkStr40 ! Date string ! 

+ + h + 

! Drcd ! ClkDateRcd ! Date record ! 



+ + + + 

The procedure evaluates the specifed string and computes a packed 
date record. The date string may be in any of the valid date 
formats: 


dy -mon—yr 
month d y , year 
dy month year 

If the date string is not evaluated successfully, a packed date 
record with all zeros is generated. 

An example of this procedure is: 

var CurrDate: ClkStr40; PackedDate: ClkDateRcd; 

write < 'Enter current date: '); 
readln (CurrDate); 

CvDateStr (CurrDate. Pac kedDate ) ; 
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The Display Control Unit 
ccCRT io 


The Display Control Unit is used to interface with the display 
driver. The unit also contains several functions and procedures 
for user interaction with the system. 

The ccCRT i o unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES -t*U /CCUTIL/CCL 1B> ccDEFN, ccCRTio; 


ccCRTio Unit Constants 

Constants defined in ccCRTio are: 


! Identifier ! Description ! 

c c CRT i over s i on ! Current unit version number string ! 


ccCRTio Unit Types 

Data types defined in ccCRTio are: 

Data Type ! Description ! 

CrtStatus ! CrtAction function result ! 


Norma 1 

l 

t 

0 

1 

1 

No error 


Escape 

• 

1 

1 

1 

1 

User pressed ESC 

key 

Error 

1 

1 

+ 

P 

1 

1 

Error in numeric 

conversion 
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! Data Type 
! CrtRdx 


Description 

3BBBSSBarEBBI 

! Radix for number conversions 


+ — +- 

t 

< 

B inRd x 

+ 

1 

1 

0 

1 

1 

Binary radix (base 2) 

1 

1 

OctRdx 

1 

1 

1 

! 

Octal radix (base 8) 

1 

1 

Dec Rd x 

l 

1 

2 

1 

1 

Decimal radix (base 10) 

1 

1 

+ — +- 

He xRd x 

1 

3 

I 

1 

Hexadecimal radix (base 16) 


! CrtCommand ! Command codes for CrtAction 


- + h- 

I BsupOff 


40 ! Do not suppress blanks in user 

! input 

+ 

39 ! Suppress blanks in user input 

+ 

9 ! Back tab 


! BsupOri 

+ 

! CursorBtab 


! CursorDown 

+ 

i C ur sor-Ftab 


5 ! Move cursor dou/n 

(. 

8 ! Forward tab 


! CursorHomi' 


! Move cursor home 


! Cursor Invrse ! 13 ! Set inverse cursor (box cursor) 

+• + + 

! 7 ! Move cursor left 

■ + H 

! 10 ! Do not display cursor 


i CursorLeft 

+ 

! CursorOff 

+ 

! CursorOn 

+ 

! CursorRigh t 


11 ! Display cursor 


i Move cursor right 
-+ 


I Cursor Undscr ! IS ! Set underline cursor 

+ h + 


(continued on next page) 
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i Data Type i Description 


+= 






+ 


CrtCommand I Command 

-+ + + 

! CursorUp ! 4 

codes for CrtAction (continued) 

! Move cursor up 

• 

1 

l 

l 

< 

t 

Def NumOf f 

1 

1 

44 

1 

Do not 

output default num values 

i 

1 

« 

1 

DefNumOn 

1 

1 

43 

1 

1 

Output 

default numeric values 

1 

1 

i 

1 

DefStrOf f 

1 

1 

42 

1 

1 

Do not 

output default strings 

l 

l 

l 

1 

De PStrOn 

1 

1 

41 

i 

1 

Output 

default strings 

i 

« 

I 

1 

DeleteChar 

> 

1 

17 

1 

1 

Delete 

character at cursor 

» 

( 

• 

1 

Del eteLine 

* 

1 

IS 

1 

t 

Delete 

line at cursor 

• 

1 

I 

1 

EchoOff 

I 

t 

34 

» 

1 

Do not 

echo user input 

I 

* 

1 

1 

Ec h oOn 

1 

I 

33 

• 

1 

Echo user input 

I 

I 

1 

1 

1 

t 

EraseALL 

1 

• 

1 

1 

E 

I 

1 

1 

Clear window and move cursor to 
upper left corner of window 

1 

1 

1 

I 

1 

1 

ErasEOL 

1 

1 

l 

1 

C 1 ear 

to end of line 

1 

l 

1 

1 

ErasEOS 

1 

1 

0 

1 

C 1 ear 

to end of window 

I 

1 

I 

1 

Gr f Mod e 

• 

1 

26 

t 

1 

Set graphics mode 

1 

> 

l 

HeartBeat 

l 

1 

46 

1 

Output 

activity indicator 

I 

1 

* 

1 

Inser tChar 

1 

1 

16 

1 

Insert 

character at cursor 

l 

l 

i 

i 

In sertLine 

1 

1 

14 

t 

1 

Insert 

line at cursor 

l 

• 

< 

i 

InsertOf f 

1 

1 

18 

i 

i 

Character insert mode OFF 

i 

l 

i 

l 

Inser tOn 

1 

1 

19 

l 

l 

Character insert mode ON 

t 

i 

1 

1 

Invrtbcreen 

1 

i 

28 

1 

1 

Invert 

screen video 

l 

l 

1 

1 

Pag ingOf f 

1 

I 

22 

l 

1 

Pag ing 

mode OFF 

l 

i 

1 

1 

+ - 

Pag ingOn 

1 

1 

“ + — 

23 

I 

1 

+- 

Paging 

mode ON 

i 

1 

- + 


(continued on next page) 
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+ S2 3= = = S = = S= = = = 3S + *2 SB = 3= = = B = SE S =t S= SB K = X= 

! Data Type ! Description 



! CrtCommand ! Command codes for CrtAction (continued) 


+ 

i 

i 

+ 



Scroll mode OFF 
Scroll mode ON 

Initialize activity indicator 

Set text mode 

Type ahead not allowed 

Type ahead allowed 

Do not convert input to 
upper case 

Convert input to upper case 


Set 

inverse 

video i 

Set 

i nver se 

underline video ! 

Set 

norma 1 

video ! 

Set 

norma 1 

underline video ! 


Line wrap OFF 
Line wrap ON 
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ccCRTio Unit Variables 

Variables defined in ccCRTio are: 

Variable ! Data Type i Description (default) 

! Beep ! char ! Bell character 

+ h 

CrtEcho ! boolean ! Echo input flag (TRUE) 

+ + 

CrtNdef ! boolean ! Output default number (TRUE) 

+ 

boolean I Output default string (FALSE) 

— f. 

CrtShft ! boolean i Convert to uppercase (TRUE.) 

(. + 

CrtBsup ! boolean ! Blank suppress (FALSE) 

+ + 

CrtTahd ! boolean ! Type ahead allowed (TRUE) 

+ + 

WndouiLin I integer ! Initial window size - lines 

+ + 

WndowCol ! integer ! Initial window size - columns 

+ + 

The following are used by the CrtTitle procedure 

+ + 

CrtTpgm I stringC163 ! Program name string 

+ + 

CrtTvrs ! stringC161 ! Program version number string 

+ + 

CrtTcpy ! stringC803 ! Copyright notice string 
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ccCRTio Unit Functions and Procedures 

Procedures defined in ccCRTio are: 

Procedure i Description 

ccCRTioInit ! Unit initialization 

+ 

CvIntStr ! Convert integer to string 

+ 

CvLIntStr ! Convert long integer to string 

4 

CrtTitle i Clear window and display title banner at 

! top of window 

+ 

CrtPrompt ! Get data from user with prompt 

' — — — — — — — — — 4 - — — — — — —— — — — — — ——— ——— — — — — — — ——— — —— ———————————— 

CrtPause ! Wait for user response 

h 

GoToXY i Position cursor 

4 - 

CrtAction ! Display command processing 

4 

Functions defined in ccCRTio are: 

! Function ! Description ! 

! Uppercase ! Convert character to upper case 

— — — ~ — — — + — — — — — — — — — — — — — — — — — — — — — _ — — _ — — — — — 

GetByte ! Get character from user 

4 - 

GetString i Get string from user 

4 

GetNum ! Get numeric data (integer) 

+ 

GetLongNum ! Get numeric data (long integer) 

H 

CvStrlnt ! Convert string to integer 

+ 

CvStrLInt ! Convert string to long integer 

+ 

BellTone I Generate speaker tones 
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ccCRT 1 o In i t Procedure 

ccCRTioInit initializes the ccCRTio unit. This procedure must be 
called before any other procedures or functions in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccCRTioInit; 

This procedure initializes the following variables: 


Variable i Value 

:====zs==ss4.sasxKC 

CrtEcho ! TRUE 



CrtNdef 

TRUE 

CrtSdef 

FALSE 

CrtShft 

TRUE 

Cr t.Bsup ! 

FALSE 


CrtTahd ! TRUE 


' WndowL in ! nn 


! Description 

! Echo input flag 

+ 

i Output default number 

+ 

! Output default string 

+ 

! Convert to uppercase 

+ 

i Blank suppress 

+ 

! Type ahead allowed 

+ 

! Window size - lines 



WndowCol 


! CrtTpgm 


Cr tTvr s 


C r t T c p y 


nn 


Window size - columns 



Program name string 

Program version number string 

Copyright notice string 


An example of this procedure is: 
ccCRT iolnit; 
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Uppercase Function 

Uppercase converts a lower case character ( a. . z > to an upper 
case character. The definition of this function is: 

FUNCTION Uppercase <Ch: char): char; 




I Parameter ! Data Type 
! Ch i char 


Description 


Character to convert to 
upper case 


An example of this function is: 

UcChar := Uppercase < AnyChar >; 

where the parameter AnyChar is a character. If the character is 
a lower case letter, UcChar is assigned the upper case equivalent 
of AnyChar. Otherwise, UcChar is assigned the value of AnyChar. 

Another example is: 

var i: integer; S: stringC643; 

S := 'This is an uppercase function test'; 

for i : -- 1 to length CS) do SCi3 := Uppercase (SCil); 

This example converts all characters in string S to upper case 
charac tens. 
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GetNum Function 


GetNum reads a number from INPUT and stores it in an integer 
variable. The definition of this function is: 

FUNCTION GetNum (var Num: integer): CrtStatus; 


I Parameter ! Data Type 

! Num I integer 

+ + 


! Description 

:-f<BSES8X3BXB:aSI 

' Integer number from INPUT 
-+ 


=== 4 - 


The function returns a result of Escape if the user presses the 
ESC key. Otherwise, the function result is Normal and the 
specified integer variable contains the input number. If the 
user presses RETURN with no other data, the default value is 
placed in the integer variable (see CrtNdef). 

The first character entered, if not numeric, may specify the 
conversion radix. The conversion radix characters are: 

"/. ~ input is an octal number (base B) 

+ , -. 41 - input is a decimal number (base 10) 

$. ! - input is a hexadecimal number (base 16) 

Decimal is the default radix. Valid characters are O to 7 for 
octal radix. O to 9 for decimal radix, and O to 9 plus A to F for 
hexadecimal radix. Invalid characters, based on input radix, are 
not echoed and cause the bell to sound for user correction. If 
the numeric value overflows the maximum integer value, a 
truncated value is returned. 

If CrtEcho is TRUE, input characters are echoed as input. If 
CrtEcho is FALSE, input characters are not echoed. 

If CrtNdef is TRUE, the current value of Num is used as the 
default value. The current value of Num is displayed in decimal 
before accepting user input. The cursor is placed at the first 
character of the default value. If CrtNdef is FALSE, no default 
value is output before accepting input. 

If CrtTahd is TRUE, data is accepted from the type ahead buffer 
until empty. Then data is accepted from the user. If CrtTahd is 
FALSE, the keyboard type ahead buffer is cleared before accepting 
user input. 
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An example of this function is: 

if GetNum ( Int ) = Escape 

then < ESC key processing > 
else -C normal processing >i 

If the user presses the ESC key. Int contains O and the ESC key 
processing section is executed. Otherwise, integer variable Int 
contains the input number and the normal processing section is 
executed. 
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GetLongNum Function 

QetLongNum reads a number from INPUT and stores it in a long 
integer variable. The definition of this function is: 

FUNCTION GetLongNum (var Num: Longlnt): CrtStatus. 

I 
I 

s=ss + 

• 

I 

— + 


! Parameter I 

Data Type ! 

Description 

! Num i 

Longlnt ! 

Long integer from INPUT 


The function returns a result of Escape if the user presses the 
ESC key. Otherwise, the function result is Normal and the 
specified long integer variable contains the input number. If 
the user presses RETURN with no other data, the default value is 
placed in the long integer variable (see CrtNdef). 

The first character entered, if not numeric, may specify the 
conversion radix. The conversion radix characters are: 

7 . - input is an octal number (base 8) 

+. # - input is a decimal number (base 10) 

) - input is a hexadecimal number (base 16) 

Decimal is the default radix. Valid characters are 0 to 7 for 
octal radix. O to 9 for decimal radix, and 0 to 9 plus A to F for 
hexadecimal radix. Invalid characters, based on input radix, are 
not echoed and cause the bell to sound for user correction. If 
the numeric value overflows the maximum long integer value, a 
truncated value is returned. 

If CrtEcho is TRUE, input characters are echoed as input. If 
CrtEcho is FALSE, input characters are not echoed. 

If CrtNdef is TRUE, the current value of Num is used as the 
default value. The current value of Num is displayed in decimal 
before accepting user input. The cursor is placed at the first 
character of the default value. If CrtNdef is FALSE, no default 
value is output before accepting input. 

If Crtlahd is IRUE, data is accepted from the type ahead buffer 
until empty Then data is accepted from the user. If CrtTahd is 
FALSE, the keyboard type ahead buffer is cleared before accepting 
user input. 
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An example of this function is: 

if GetLongNum < Lglnt ) = Escape 
then < ESC key processing > 
else < normal processing >; 

If the user presses the ESC key/ Lglnt contains 0 and the ESC key 
processing section is executed. Otherwise/ long integer variable 
Lglnt contains the input number and the normal processing section 
is executed. 
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GetString Function 

GetString reads an input string and stores it in a string 
variable with a maximum length of SO characters. The definition 
of this function is: 

FUNCTION GetString <var StrBuf: String80): CrtStatus; 

! Parameter I Data Type ! Description ! 

! StrBuf ! string80 i String from INPUT ! 

+ + -t + 

The function returns a result of Escape if the user presses the 
ESC key. Otherwise/ the function result is Normal and the 
specified string variable contains the input string. If the user 
presses RETURN with no other data/ the default string value is 
placed in the string variable (see CrtSdef). If more than 80 
characters are entered/ the bell is sounded and the character is 
not added to the string. When the string length is 80/ only the 
backspace and RETURN keys are valid. 

If CrtBsup is TRUE/ all blank characters are removed from the 
input string. If CrtBsup is FALSE/ blank characters are returned 
as entered. 

If CrtLcho is TRUE/ input characters are echoed as input. If 
CrtEcho is FALSE, input characters are not echoed. 

If CrtSdef is TRUE, the current value of StrBuf is used as the 
default value The current value of StrBuf is output before 
accepting user input. The cursor is placed at the first 
character of the default value. If CrtSdef is FALSE, no default 
string is output before accepting input. 

If CrtShft is TRUE, all lower case characters are converted to 
upper case in the input string. If CrtShft is FALSE, lower case 
characters are returned as entered. 

If Crtlahd is TRUE, data is accepted from the type ahead buffer 
until empty Then data is accepted from the user. If CrtTahd is 
FALSE, the keyboard type ahead buffer is cleared before accepting 
user input 
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An example of this function is: 

if GetString ( UserReply ) = Escape 
then < ESC key processing > 
else < normal processing >; 

If the user presses the ESC key/ the ESC key processing section 
is executed. Otherwise/ string variable UserReply contains the 
input string and the normal processing section is executed. 
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GetByte Function 

GetByte reads an input byte and returns a character. The 
definition of this function is: 

FUNCTION GetByte: char; 

The function returns the input character. If the RETURN key is 
pressed! a space is returned. If the ESC key is pressed, a ! is 
returned. If a loujer case character is entered, a converted 
upper case character is returned. 

If CrtEcho is TRUE, the input character is echoed at the current 
cursor position. If CrtEcho is FALSE, the character is not 
echoed. 

If CrtTahd is TRUE, the character is accepted from the type ahead 
buffer if not empty. Otherwise, the character is accepted from 
the user. If CrtTahd is FALSE, the keyboard type ahead buffer is 
cleared before accepting the character. 

An example of this function is: 

Ch : = GetByte; 

Ch is the variable in which the character is stored. 
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CvStrlnt Function 

CvStrlnt converts a numeric string# with a maximum length of 80 
characters, into its integer equivalent. The definition of this 
function is: 

FUNCTION CvStrlnt (StrBuf. String80; 

var Num: integer): CrtStatus# 

! Parameter ! Data Type ! Description 

I StrBuf ! string80 i Numeric string to convert 

+ H 1 

1 Num ! integer ! Integer value of string 

+ H + H 

The function returns a result of Error if the numeric string 
contains invalid characters. Otherwise# the function result is 
Normal and the specified integer variable contains the converted 
numeric string value. 

The first character of the string# if not numeric# may specify 
the conversion radix. The conversion radix characters are. 

7. - input is an octal number (base 8) 

+ , -# it - input is a decimal number (base 10) 

$# ! - input is a hexadecimal number (base 16) 

Decimal is the default radix. Valid characters are O to 7 for 
octal radix# 0 to 9 for decimal radix# and 0 to 9 plus A to F for 
hexadecimal radix. Invalid characters# based on input radix# 
cause the function result to be set to Error. If the numeric 
value overflows the maximum integer value# a truncated value is 
returned. 

An example of this function is: 

Status := CvStrlnt < StringVar# IntVar ); 

Status is of the type CrtStatus. StringVar is the numeric striny 
variable of type StringBO. IntVar is the integer variable in 
which the numeric value of StringVar is stored. 
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CvStrLInt Function 

CvStrLInt converts a numeric string/ with a maximum length of 80 
characters/ into its long integer equivalent. The definition of 
this function is: 

FUNCTION CvStrLInt <StrBuf: StringBO; 

var Num: Longlnt): CrtStatusi 

! Parameter ! Data Type ! Description 

! StrBuf ! string80 ! Numeric string to convert 

+ + + 

! Num ! Longlnt ! Long integer value of string 

■i 1 - + 

The function returns a result of Error if the numeric string 
contains invalid characters. Otherwise/ the function result is 
Normal and the specified long integer variable contains the 
converted numeric string value. 

The first character of the string/ if not numeric/ may specify 
the conversion radix. the conversion radix characters are: 

7. - input is an octal number (base 8) 

+ / -/ t! - input is a decimal number (base 10) 

$/ ! - input is a hexadecimal number (base 16) 

Decimal is the default radix. Valid characters are O to 7 for 
octal radix/ 0 to 9 for decimal radix/ and O to 9 plus A to F for 
hexadecimal radix, Invalid characters/ based on input radix/ 
cause the function result to be set to Error. If the numeric 
value overflows the maximum long integer value/ a truncated value 
is returned. 

An example of this function is: 

Status := CvStrLInt ( StringVar/ LIntVar ); 

Status is of the type CrtStatus. StringVar is the numeric string 
variable of type StringBO. LIntVar is the long integer variable 
in which the numeric value of StringVar is stored. 
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CvIntStr Procedure 

CvIntStr converts an integer into its numeric string equivalent. 
The definition of this procedure is: 

PROCEDURE. CvIntStr (Nun: integer; 

var StrBuf: StringBO; Rdx: CrtRdx); 


Parameter 

= + 

1 

1 

Data Type 

1 

Description 

Num 

1 

1 

integer 

l 

Integer value 

StrBu P 

l 

1 

s tr ing80 


Numeric string equivalent 

Rd x 

f 

h 

CrtRdx 

1 

h 

Conversion radix 


The procedure converts the specified integer variable to a 
numeric string based on the conversion radix. The conversion 
radix may be BinRdx for binary. OctRdx for octal. DecRdx for 
decimal, or HexRdx for hexadecimal. An example of this procedure 
i s . 


CvIntStr < IntVar, String Var. DecRdx >; 

IntVar is the integer to be converted. StringVar is a string 
with a maximum length of BO characters in which the converted 
number is stored DecRdx is of type CrtRdx, which indicates the 
converted integer is to appear in decimal. 
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CvLIntStr Procedure 

CvLIntStr converts a long integer into its numeric string 
equivalent. The definition of this procedure is: 

PROCEDURE CvLIntStr (Num: Longlnt; 

var StrBuf: StringBO; Rdx: CrtRdx); 




! Parameter I Data Type ! Description 


! Mum ! Longlnt ! Long integer value 


StrBuf 

1 

s tr ingBO 

+- 

1 

1 

Numeric string equivalent 

Rd x 

1 

1 

+ - 

CrtRdx 

1 

1 

+- 

Conversion radix 


The procedure converts the specified long integer variable to a 
numeric string based on the conversion radix. The conversion 
radix may be BinRdx for binary, OctRdx for octal, DecRdx for 
decimal, or HexRdx for hexadecimal. An example of this procedure 

i s : 


CvLIntStr ( LIntVar, StringVar, HexRdx ) ; 

LIntVar is the long integer to be converted. StringVar is a 
string with a maximum length of 80 characters in which the 
converted number is stored. HexRdx is of type CrtRdx, which 
indicates the converted long integer is to appear in hexadecimal. 
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CrtTitle Procedure 

CrtTitle clears the current window and then writes a program 
title banner using inverse video on the first two lines of the 
window. The definition of this procedure is: 

PROCEDURE CrtTitle (Txt: StringBO); 


! Parameter ! Data Type 
! Txt ! string80 


i Description 

: + ss = = = »&a = = s = 

! Title text 


The procedure clears the current window and displays the program 
name (CrtTpgm)i version number (CrtTvsn). and title text (txt) on 
the first line in the window. The copyright notice (CrtTcpy) is 
displayed on the next line. The default copyright notice is for 
Corvus Systems. The general form in the current window is: 

CrtTpgm CCrtTvrsl: txt 
CrtTcpy 

An example of this procedure is: 

CrtTpgm := 'TSTPGM ' ; CrtTvrs := '1.0'; 

CrtTcpy := 'Copyright 1982 KLL Inc. '); 

CrtTitle ('Test Program Title Text'); 
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CrtPause Procedure 

CrtPause waits for an input character. The definition of this 
procedure is: 

PROCEDURE CrtPause (var Ch: char); 

<f3 = X = = S = =SSS-f.=;s=:s = X3KSE==a:B'fVBXBBBBBBSC3BBBBKaKaKBBa 

I Parameter ! Data Type I Description 

•fscxrsasssss+sirixsEsssiBBiasxaiai-fKixscxssxxxsnaBXHxnxBvxx 

! Ch ! char I Character input by user 

+ + + 

The procedure selects the command window and outputs the message: 

Press Cspac e> to continue 

The system waits until a character is input. The character is 
returned in the specified character variable. If the RETURN key 
is pressed, a space is returned. If the ESC key is pressed, a ! 
is returned. If a lower case character is entered, a converted 
upper case character is returned. 

An example of this procedure is: 

CrtPause (Ch); 

Ch is the variable in which the user input is stored. 
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CrtPrompt Procedure 

CrtPrompt writes a prompt line with optional prompt options. The 
definition of this procedure is: 

PROCEDURE CrtPrompt (Txt, Opt: StringBO); 


! Parameter ! 

=S=S3SCCBB EB 

Data Type 

KB-f ■SSSSaUBBZBSBI 

! Description 


1 

1 

(Txt ! 

StringBO 

i Prompt line 

text 

1 

f 

(Opt i 

s tr ingBO 

! Prompt line 

options 

i 

l 


The procedure outputs a prompt line at the current cursor 
position. Txt is the prompt line text and Opt is a list of valid 
replies If the Txt parameter is null (string with no 
characters)# the default prompt: 

Please select option: 

is used. If the opt parameter is null# no options are included 
in the prompt line. Otherwise# the specified options are 
included enclosed in brackets. An example of this procedure is: 

CrtPrompt ('Enter your choice'# 

'A(dd S(ubtract M(ultiply D(ivide')# 

case GetByte of 

'A': {add processing) 

'S': {subtract processing) 

'M': {multiply processing) 

'D'; {divide processing) 
otherwise: {error processing 
end# {case GetByte of> 

Both the prompt line and option line can be up to 80 characters 
each. 

This example generates the following output: 

Enter your choice CA(dd S(ubtract ("Multiply D(ivideD: 
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GoToXY Procedure 

GoToXY positions the cursor to a given character position in the 
current window. The definition of this procedure is: 

PROCEDURE GoToXY <X,Y: integer); 


i Parameter i Data Type ! 

IX {integer { 

+ + + 

! Y i integer I 

+ + + 


Description ! 

:ssxteasBSKxxBZEssxB&aacssBsissasE+ 

Character coordinates at which • 
to place the cursor ! 

I 

I 

— + 


The procedure positions the cursor at the specified location. 

The origin (O.O) is the upper left hand corner of the current 
window The X coordinate must be in the range of O to the number 
of characters per line less 1 in the current window. The T 
coordinate must be in the range of O to the number of lines per 
window less 1 in the current window. If the X coordinate or Y 
coordinate is invalid/ no cursor movement occurs. 

An example of this procedure is: 

var PosX, PosY: integer; 

PosX = O; 

PosY = 10; 

GoToXY ( PosX, PosY ); 

PosX is the X coordinate and n osY is the Y coordinate. 
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BellTone Function 

BellTone is used to make varied sounds with the Concept speaker. 
The definition of this function is. 

FUNCTION BellTone (Timbre: byte; 

Duration. Per iod : integer): integer; 

+ SSSSSS£SSSS + 3CSSSSSISSSSSSB+3SSSBa«SSKBXBrSSS:B3SXBKaaS8SSESS:s + 

I Parameter ! Data Type ! Description ! 

I Timbre ! byte ! Timbre of tone (O to 127) ! 


Duration ! integer i Duration of tone in 50 milli- 

i ! second increments 


Period I integer ! Time between speaker tones 

! ! (Period equals 1/frequency) 


The function returns the I/O result after producing the specified 
sound with the Concept speaker. Duration is the length of the 
tone in increments of 50 milliseconds, eg. 1 is a very short note 
and 20 is a very long note. 

An example of this procedure is: 

IOst : - BellTone ( Timbre. Length, Period ); 

. . or . . 

IOst := BellTone (31, 10,254); < pitch 0 for . 5 seconds > 
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Pitch Parameters for Three Octaves 


= *£ » 4 =ss == = sc ss + ss ss =s ss * ss as 4 4 = = = 

I First Octave i! Second Octave 


Third Octave 


i 


+ - 


-4-- 
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Pitch 
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Cr t Ac t i on Procedure 

CrtAction performs many different display control functions. The 
definition of this procedure is: 

PROCEDURE CrtAction (Cmd: CrtCommand); 


I Parameter i Data Type ! Description ! 

! Cmd I CrtCommand ! Action command from table below! 


+ + + + 

The procedure performs the specified command which is of the type 
CrtCommand. 

An example of this procedure is: 

CrtAction (EraseALL). 

Each command is described below. 


CrtAction (BsupOff) — blank suppress user input OFF 

BsupOff sets variable CrtBsup to FALSE. If CrtBsup is FALSE/ 
blank characters entered by the user (when using the 
GetString function) are returned as entered. 

CrtAction (BsupOn) — blank suppress user input ON 

BsupOn sets variable CrtBsup to TRUE. If CrtBsup is TRUE/ 
blank characters entered by the user (when using the 
GetStrinq function) are removed. 

CrtAction (CursorBtab) — back tab 

CursorBtab moves the cursor to the next tab stop to the left 
of the cursor position. Tab stops occur every eighth 
character position starting at the left edge of the window. 

If the cursor is at the left edge of the window/ it does not 
move 

CrtAction (CursorDown) — move cursor down 

CursorDown moves the cursor down one line. If the cursor is 
at the bottom edge of the current window, it is placed on the 
first line of the current window if wrap is on. If wrap is 
off, no cursor movement occurs. CursorDown is 
non-destructive to the data displayed on the screen. 
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CrtAction (CursorFtab) — forward tab 

CursorFtab moves the cursor to the next tab stop to the right 
of the cursor position. Tab stops occur every eighth 
character position starting at the left edge of the window. 

If the cursor is within eitht characters of the right edge of 
the window, it does not move. 

CrtAction (CursorHome) — move cursor home 

CursorHome moves the cursor to the upper left corner of the 
current window. CursorHome is non-destructive to the data 
displayed on the screen. 

CrtAction (Cursorlnvrse) — set inverse cursor 

Cursorlnvrse sets the cursor to the inverse character box. 

Bee Cur s orUnd s c r . 

CrtAction (C.ursorLeft) — move cursor left 

CursorLeft moves the cursor left one character position. If 
the cursor is at the left edge of the current window, it is 
placed at the last character position of the previous line. 
CursorLeft is non-destructive to the data displayed on the 
s ( 1 een 

CrtAction (CursorOff) — display cursor OFF 

CursorUFf turns off the cursor in the current window. 

CrtAction (CursorOn) -- display cursor UN 

CursorOn turns on the cursor in the current window. A box 
cursor appears if Cursorlnvrse is in effect or an underline 
is CursorUndscr is in effect. 

CrtAction (CursorRight) — move cursor right 

CursorRight moves the cursor right one character position. 

If the cursor is at the right edge of the current window, it 
is placed at the first character position of the next line. 
CursorRight is non-destructive to the data displayed on the 
screen. 

CrtAction (CursorUndscr) — set underline cursor 

CursorUndscr sets the cursor to the underline character. Bee 
Cursorlnvrse. 
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CrtAction (CursorUp ) — move cursor up 

CursorUp moves the cursor up one line. If the cursor is at 
the top edge of the current window, it does not move. 

CursorUp is non-destructive to the data displayed on the 
screen. 

CrtAction (DefNumOff) — output default numeric values OFF 

DefNumOff sets variable CrtNdef to FALSE. If CrtNdef is 
FALSE, 0 is used as the default numeric value when using the 
GetNum and GetLongNum functions. 

CrtAction (DefNumDn) — output default numeric values ON 

DefNumOn sets variable CrtNdef to TRUE. If CrtNdef is TRUE, 
the specified variable is used as the default numeric value 
when using the GetNum and GetLongNum functions, 

CrtAction (DefStrOff) — output default strings OFF 

DefStrOff sets variable CrtSdef to FALSE. If CrtSdef is 
FALSE, a nil string (no characters) is used as the default 
string value when using the GetString function. 

CrtAction (DefStrOn) — output default strings ON 

DefStrOn sets variable CrtSdef to TRUE. If CrtSdef is TRUE, 
the specified string variable is used as the default string 
value when using the GetString function. 

CrtAction (Delete Char) — delete character at cursor 

The character at the cursor position is deleted. The rest of 
the line to the right of the cursor is shifted left one 
character with a blank fill at the end of the line. 

CrtAction (DeleteLine) — delete line at cursor 

DeleteLine deletes the line at the cursor position by moving 
all lines from the line below the cursor up one line. The 
last line is blank. The cursor does not move. 

CrtAction (tchoUff) — echo user input OFF 

EchoOff sets variable CrtEcho to FALSE. If CrtEcho is FALSE, 
user input data is not echoed when using the Get. . . . 
functions. 
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CrtAction (EchoOn) — echo user input ON 

EchoOn sets variable CrtEcho to TRUE. If CrtEcho is TRUE) 
input data is echoed when using the Get. . . . functions. 

CrtAction (EraseALL) — clear screen and home 

EraseALL clears all data from the current window and places 
the cursor at the upper left corner of the window. 

CrtAction (ErasEOL) — clear to end of line 

ErasEOL clears all data from the cursor position to the end 
of the cursor line. The cursor is not moved. 

CrtAction (ErasEOS) — clear to end of screen 

ErasEOS clears all data from the cursor position to the end 
of the current window. The cursor is not moved. 

CrtAction (GrfMode) — set graphics mode 

GrfMode sets the current window to graphics mode. Graphics 
mode affect the window commands WinCreate and WinStatus. In 
graphics mode the parameters passed by these functions are 
intrepreted as pixel quantities instead of character cell 
quantities. See TxtMode. 

CrtAction (HeartBeat) — output activity indicator 

HeartBeat outputs a period on the current line to indicate 
processing activity. If the current line fills, a carriage 
return is output and the next line on the display screen is 
filled. HeartBeat must be initialized by StartBeat. 

CrtAction (InsertChar) -- insert character at cursor 

InsertChar inserts a character at the cursor positions by 
moving all characters from the cursor position one character 
to the right The character at the right edge of the window 
"falls off" and vanishes. The character at the cursor 
position is blank. 

CrtAction (InsertOff) — character insert mode OFF 

InsertOff sets the current window character insert mode off. 
When insert mode is off. all characters displayed overwrite 
the existing text at the cursor position. 
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CrtAction (InsertOn) — character insert mode ON 

InsertOn sets the current window character insert mode on. 
When insert mode is on. the line is moved to the right to 
accomodate the new characters. Existing text is not 
overwr i tten. 

CrtAction (InsertLine) — insert line at cursor 

InsertLine inserts a line at the cursor position by moving 
all lines from the cursor line to the bottom of the current 
window down one line. The last line is lost off the bottom 
of the window. The inserted line is blank with the cursor on 
the inserted line. 

CrtAction ( InvrtScr een ) — invert screen video 

InvrtScreen inverts all data displayed in the current window. 
White on black becomes black on white or black on white 
becomes white on black. The background color definition is 
inverted and all subsequent characters, normal or inverse, 
are displayed relative to the new background color. 

InvrtScreen is non-destructive to the data displayed on the 
sc r een. 

CrtAction (PagingOff) — paging mode OFF 

PagingOff sets the current window paging mode off. When 
paging mode is off, the window is not cleared when the cursor 
reaches the bottom of the window. See PagingOn. 

CrtAction (PagingOn) — paging mode ON 

PagingOn sets the current window paging mode on. When paging 
mode is on and the cursor is moved past the bottom line of 
the window, the cursor disappears and the bell sounds. The 
user must press CNTL — Q to clear the screen and home the 
cursor. 

CrtAction (ScrollOff) — scroll mode OFF 

ScrollOff prevents scrolling in the current window. When 
scroll mode is off, the display screen does not scroll when a 
line feed is output on the bottom line of the current window. 
Instead, the cursor moves to the upper left position in the 
current window. 
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CrtAction (ScrollOn) — scroll mode ON 

ScrollOn allows the current window to scroll. When scroll 
mode is on> the display screen data scrolls up one line when 
a line feed is output on the bottom line of the current 
window. The top line of the window falls off the top and the 
bottom line of the window is cleared. 

CrtAction (StartBeat) — initialize activity indicator 

StartBeat outputs a carriage return and the initial period to 
indicate processing activity. HeartBeat is used to output 
additional periods as processing progresses. 

CrtAction (TxtMode) — set text mode 

TxtMode sets the current window to text mode. Text mode 
affect the window commands WinCreate and WinStatus. In text 
mode the parameters passed in these functions are intrepreted 
as character cell quantities instead of pixel quantities. 

See GrfMode. 

CrtAction (TypAhdOff) — type ahead allowed OFF 

TypAhdOff sets variable CrtTahd to FALSE. If CrtTahd is 
FALSE, the type-ahead buffer is cleared before accepting 
input from the user when using the Get. . . . functions. 

CrtAction (TypAhdOn) — type ahead allowed ON 

TypAhdOn sets variable CrtTahd to TRUE. If CrtTahd is TRUE, 
the type-ahead buffer is used while accepting input from the 
user when using the Get. . . . functions. User input may be 
entered before being promped and is saved until requested by 
the program. 

CrtAction (UcaseOff) — convert user input to uppercase OFF 

UcaseOff sets variable CrtShft to FALSE. If CrtShft is 
FALSE, lower case characters (a. . z) entered by the user (when 
using the GetString function) are returned as entered. 

CrtAction (UcaseOn) — convert user input to uppercase ON 

UcaseOn sets variable CrtShft to TRUE. If CrtShft is TRUE, 
lower case characters (a. . z) entered by the user (when using 
the GetString function) are returned converted to upper case 
characters (A. . Z). All other characters are returned as 
entered . 
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CrtAction (Vdolnv) — set inverse video 

Vdolnv sets the current window to output inverse video 
characters. All subsequent characters are displayed in 
inverse video until another video command is encountered. 
Inverse is relative to the current background color (black or 
white). 

CrtAction (VdoInvUnd) — set inverse underline video 

VdoInvUnd sets the current window to output underlined 
inverse video characters. All subsequent characters are 
displayed underlined in inverse video until another video 
command is encountered. Inverse is relative to the current 
background color (black or white). 

CrtAction (VdoNor) — set normal video 

VdoNor sets the current window to output normal video 
characters (not underlined, not inverse). All subsequent 
characters are displayed normally until another video command 
is encountered. Normal is relative to the current background 
color (black or white). 

CrtAction (VdoNorUnd) — set normal underline video 

VdoNorUnd sets the current window to output underlined video 
characters. All subsequent characters are displayed 
underlined until another video command is encountered. 

Normal is relative to the current background color (black or 

white). 

CrtAction (WrapOff) — line wrap OFF 

WrapOff sets the current window wrap mode off. While wrap 
mode is off. the cursor stops when it reaches the right or 
left edge of the window. 

CrtAction (WrapOn) — line wrap ON 

WrapOn sets the current window wrap mode on. While wrap mode 
is on, the cursor is set to the left edge of the next line 
when the cursor moves past the right edge of the current 
window. Also, the cursor is set to the right edge of the 
previous line when the cursor moves past the left edge 
(backspace, cursor left) of the current window. 
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The Data Comm/Printer Interface Unit 
ccDCPio 


The Data Comm/Printer Interface Unit is used to set data 
communication parameters and protocols for the Corvus Concept 
data communications and printer drivers. 

The ccDCPio unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES -C$U /CCUTIL/CCL IB> ccDEFN, ccDCPio; 


ccDCPio Unit Constants 

Constants defined in ccDCPio are: 


Baud Rate Codes 




! Identifier ! Value ! Description ! 


Baud 300 

1 

I 

0 

« 

1 

300 baud 

Baud 600 

Baud 1200 

1 

1 

1 

2 

1 

1 

+- 

1 

600 baud 

1200 baud 

Baud 2400 

1 

3 

1 

1 

2400 baud 

Baud4800 

1 

1 

4 

1 

1 

4800 baud 

Baud 9600 

t 

1 

5 

• 

1 

9600 baud 

Baud 19200 

1 

1 

6 

! 

19200 baud 

*** = default 

value 





+ 


+ 


+ 


+ 


+ 


+ 


+ 


Copyright 1983 Corvus Systemsi Inc. 


September 1. 1983 



ccDCPio 
Page 5-2 


Corvus Concept Pascal System Library 
Data Comm/Printer Interface Unit 


*** 








Parity Codes 


+■ 


+■ 


Identifier 


■ Value ! Description 



ParDisabled I O ! No parity 


ParOd d 

s 

1 

+ - 

t 

1 

Odd parity 

ParEven 

1 

1 

2 

1 

1 

Even parity 

ParMar k XNR 

1 

1 

1 

3 

1 

1 

1 

r 

4-- 

Transmit mark parity (receive 
parity expected, not checked) 


! ParSpaceXNR i 4 ! Transmit space parity (receive ! 

! ! ! parity expected, not checked) ! 


4 K + + 

! Parity is separate from word size ! 
i = default value ! 
+ + 


Data Comm Port Codes 


Identifier 

! Value ! Description 

Port 1 

l 

1 

0 ! Data comm port 1 

Porta 

1 

• 

1 ! Data comm port 2 

*** = default 

value 


Character Size Codes 

Identifier 

i Value ! Description 

CharSzB 

l 

1 

0 ! 8 bit characters 

CharSz7 

I 

1 

1 ! 7 bit characters 




! Character size does not include parity 
j = default value 

H 


= default value 
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Protocol Codes 


fss3=EX'SBBSsss = s= = + = s:S!assK'fEs8s:scr = sEcr: 

Value ! Description 




Identifier 
I LineCTSinverted 


Clear to send - inverted 


LineCTSnorma 1 

- + 

1 

1 

1 

J-- 

1 

1 

C 1 ear 

to send - normal 

— + 

l 

1 

LineDSR inverted 

1 

1 

2 

« 

1 

Da ta 

set ready - inverted 

< 

1 

LineDSRnorma 1 

1 

1 

3 

l 

1 

Data 

set ready - normal 

1 

• 

LineDCDinverted 

1 

1 

4 

1 

f 

Data 

carrier detect - inverted 

1 

l 

LineDCDnorma 1 

1 

1 

5 

1 

1 

Data 

carrier detect - normal 

1 

1 

XonXof f 

» 

1 

6 

1 

l 

X-on/X-off character protocol 

1 

( 

EnqAc k 

1 

I 

7 

1 

« 

+ - 

Enq/Ack character protocol 

1 

I 

- + 


EtxAc k 


I 

-+- 


e 


Et x /Ac k character protocol 


I NoProtocol I 9 ! No character protocol 

+ + + 

i Inverted is busy when O , normal is busy when 1 
! = default value 

+ 


Unit Number Codes 


! Identifier ! Value ! Description ! 

! PrinterUnit ! O ! Printer ! 

+ + H + 

! DtaComlUnit i 1 I DataComm 1 ! 

+ + + + 

! DtaComSUnit ! 2 ! DataComm 2 ! 

H -4- H + 

! DCPinvUnitNo ! -1 ! Invalid unit number ! 

+ + + + 
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DataComm Driver Unit Status Functions 
(not used by unit ccDCPio) 




! Identifier 


! Value ! Description 
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Printer Driver Unit Status Functions 
(not used by unit ccDCPio) 


Identifier 

FCmodeChg 

FCinstAlt 

FCattchPr 

FCslctPitch 

FCslctlnch 

FCinstAct 

FCclpiBtat 


I Value ! Description 

baaaaBaa+aaaaaaaaaaaaaaaaaaaaaaaaaattaai 

$00 ! Toggle transparent/translate 

[ ! mode 


$01 ! Install AltChar translate table 



Attach 

printer to unit 


Select 

pitch 

- 10 or 12 


Select 

lines 

per inch — 

6 or 

Install 

printer action 

tab 1 e 

Return 

state 

of CPI and 

LPI 


0 
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ccDCPio Unit Types 

Data types defined in ccDCPio are: 


Data Type ; 

Description 

i 

RdBufStatus ! 

Data comm input buffer status block 

1 

1 


Buf f erSi z e : 

integer; 

« 

1 


FreeSpace: 
HiWeter : 

integer; 

integer; 

1 

1 

l 

1 


LowWater : 
InputDi sb 1 d 

integer; 
bool ean; 

t 

1 

i 

1 


OutputDsb 1 d 
LostData : 

bool ean; 
bool ean; 

l 

1 

i 

f 


AltBuf Avai 1 
AltBufAddr: 

boolean; 

pByte; 

1 

1 

l 

I 


A1 tBuf Si z e : 

integer; 

1 

1 


+ — + + 

WrBufStatus ! 

+ — + + 

Buf f erSi z e : 
FreeSpace : 
ChrBtumENQ: 
Inp utDi sb 1 d 
OutputDsb 1 d 
AutoLinFeed 
A1 IBuf Ava i 1 
AltBufAddr: 
AltHufSi ze: 


Data comm output buffer status block 


integer; 
integer; 
integer; 
b oo lean; 
bool ean; 
bool ean; 
boolean; 
pByte; 
integer; 


! DCPstatusB 1 k i Printer status block ! 

+ — + + + 

I CP I : i nteg er; ! 

! L P I : i n t e g e r ; ! 

+ h 
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ccDCPio Unit Variables 

Variables defined in ccDCPio are: 


+ SE sr = ss *s sa ac at m a -f ss = s ss = sec = as = s at *= + ■ 

I Variable 
1 PrtAvail 


esacssEssttaBa 


s=rs=a==+ 


Data Type i Description 


boolean 


! Printer available (assigned) 


i DC 1 Avail 


boolean 


Datacom 1 available (assigned) 


! DC2Ava i 1 


boolean 


! Datacom 2 available (assigned) 


! PRT 


integer 


i Unit number of /PRINTER 


! DC 1 


integer i Unit number of /DTACOM1 


! DC 2 

+ 


integer 


! Unit number of /DTAC0M2 


ccDCPio Unit Functions and Procedures 
Procedures defined in ccDCPio are: 


! Procedure ! Description ! 

! ccDCPioInit ! Unit initial i zation 


Functions defined in ccDCPio are: 

i Function ! Description 

! DCPstatus | Get data comm driver status 


I DCPrdFref ! Get input buffer free space 

+ + 

! DCPwrFree ! Get output buffer free space 

+ + 


(continued on next page) 
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Functions defined in ccDCPio (continued) 


! Function 
! DCPbaudRate 


Description 

ESE>BBSSSS=Sa 

Set data comm driver baud rate 


DCPparity 1 

Set 

data comm driver parity 


DCPcharSize ! 

Set 

data comm driver character size 


DCPhandShak e ! 

Set 

data comm driver protocol 


DCPgetUnitNo I 

Get 

current driver unit 


DCPsetUn i tNo ! 

Select current driver unit 


DCPrdStatus I 

Get 

input buffer status 


DCPwrStatus ! 

Get 

output buffer status 


DCPautoLF ' 

Toggle auto linefeed switch 


PrtDataCom ! 

Set 

printer driver data comm port 


PrtTb IStatus ! 

Get 

printer status (CPI/LPI) 
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ccDCPioInit Procedure 

ccDCPioInit initializes the ccDCPio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccDCPioInit; 

An example of this procedure is: 

ccDCPioInit; 

Boolean variable PrtAvail is TRUE if the printer driver is loaded 
and assigned the device name /PRINTER. Otherwise, PrtAvail is 
FALSE. 

Boolean variable DClAvail is TRUE if the data comm driver is 
loaded and assigned the device name /DTACOM1. Otherwise, 

DClAvail is FALSE. 

Boolean variable DC2Avail is TRUE if the data comm driver is 
loaded and assigned the device name /DTAC0M2. Otherwise, 

DC2Ava i 1 is FALSE. 
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DCPstatus Function 

DCPstatus returns the current data comm driver parameters. The 
definition of this function is: 

FUNCTION DCPstatus (var BaudRatei Par i ty i DataComm. 

CharSi ze> Protoc ol : integer): integer; 


! Parameter i Data Type 

Description 

! BaudRate i integer 

Current baud rate code 

! Parity ! integer 

Current parity code 

! DataComm j integer 

Current data comm port code 

i CharSize ! integer 

Current character size code 

J Protocol 1 integer 

Current protocol code 


The function returns the IORESULT from the data comm driver. The 
five parameter values are also returned in the specified integer 
variables. The parameter codes are defined in the ccDCPio 
constants section 

An example of this function in: 

var lU‘t: integer; 

curPaud, curParity. curDtaCom. curChSize. curProto: integer; 

IOst := DCPstatus < c urBaud « curPar i ty > 

curDtaCom. curChSize. curProto); 

if IOst <> O 

then uiriteln ('DataComm error: '<iost:l>; 
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DCPrdFree Function 

DCPrdFree returns the number of unused bytes in the data comm 
driver input buffer in the specified integer variable. The 
definition of this function is: 

FUNCTION DCPrdFree (var FreeBytes: integer): integer; 

I Parameter ! Data Type I Description 

+sssssatsasss4-sss=sas:aiesBBBB-faB«!SCEBssB*8:KESBESBzaaBSBaExr=! 

i FreeBytes ! integer ! Space remaining in data comm 

! I ! driver input buffer 

+ + + 

The function returns the IORESULT from the data comm driver. The 
integer variable FreeBytes contains the number of unused bytes in 
the data comm driver input buffer. 

An example of this function is: 

var IOst. spac e 1 ef t : integer; 

IOst := DCPrdFree (spaceleft); 
if IOst ~ O 

then writeln ( 'DataComm input buffer space = spaceleft: 1 ) 
else uriteln ('DataComm error: '»iost:l>; 
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DCPturFree Function 

DCPwrFree returns the number of unused bytes in the data comm 
driver output buffer in the specified integer variable. The 
definition of this function is: 

FUNCTION DCPwrFree (var FreeBytes: integer): integer; 

! Parameter ! Data Type ! Description ! 

! FreeBytes ! integer ! Space remaining in data comm ! 

! ! ! driver output buffer ! 

+ H + + 

The function returns the IORESULT from the data comm driver. The 
integer variable FreeBytes contains the number of unused bytes in 
the data comm driver output buffer. 

An example of this function is: 

var IOs t. spac e 1 ef t : integer; 

ICJst := DCPuirFree (spac el eft); 
if IOst - O 

then uiriteln ('DataComm output buffer space = '» spac e 1 eft : 1 ) 
else writeln ( 'DataComm error: iost: 1); 
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DCPbaudRate Function 

DCPbaudRate sets the data comm driver baud rate. The definition 
of this function is: 


FUNCTION DCPbaudRate (BaudRate: integer): integer. 


! Parameter 

i Data Type 

! Description 

! BaudRate 
+ 

i integer 

-4 

1 Printer baud rate code 


The function returns the IORESULT from the data comm driver. The 
data comm driver baud rate is set to the specified baud rate. 

The baud rate code is one of the following: 



An example of this function is: 
var IOst.rate: integer; 
rdite : = Baud 9600; 

IUst := DCPbaudRate (rate); { set baud rate to 9600 > 
if lOst <> O 

then writeln ( 'DataComm error: ' . iost: 1); 
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DCPparity Function 

DCPparity sets the data comm driver parity. The definition of 
this f unc t ion is: 

FUNCTION DCPparity <Parity: integer): integer/ 

! Parameter ! Data Type ! Description 

! Parity ! integer ! Printer parity code 

+ + + 

The function returns the IORESULT from the data comm driver. The 
data comm driver parity is set to the specified parity. The 
parity code is one of the following: 



Both ParMarkXNR and ParSpaceXNR expect a parity on receive for 
character framing. However/ the parity check is disabled 

An example of this function is: 

var IOst/ parity: integer; 

parity : - ParOd d ; 

IOst := DCPparity (parity); -C set parity to odd > 
if IOst O O 

then writeln ( 'DataComm error: '/ iost: 1); 
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DCPcharSize Function 

DCPcharSize sets the data comm driver character size. The 
definition of this function is: 

FUNCTION DCPcharSize (CharSize: integer): integer; 


•fBszsssBKsas+asssBSSKaEaiBSBB+SKasrsBESsiaaaaasssBeBaesBBSBBsssns-l- 

I Parameter ! Data Type ! Description ! 

! CharSize ! integer ! Printer character size code ! 

+ + + + 

The function returns the IORESULT from the data comm driver. The 
data comm driver character size is set to the specified character 
size. The character size code is one of the following: 


! Code Identifier ! Value ! Description 
! CharSz8 ! 0 


=======+ 


8 bit characters 


+ + + + 

! CharSz7 ! 1 ! 7 bit characters ! 

+ f ► + 

i Character size does not include parity ! 

+ + 


Parity is generated by the UART separate from character size. 

An example of this function is: 
var IOsti charsize: integer; 
charsize : = CharSzB; 

IOst := DCPcharSize (charsize); < set character size to 8 > 
if IOst <> O 

then uiriteln < 'DataComm error: Viost:l); 
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DCPhandShake Function 


DCPhandShake sets the data comm driver protocol. The definition 
of this function is: 

FUNCTION DCPhandShake (Protocol: integer): integer; 
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Line protocols use hardware control lines from the printer. 
Character protocols only exist on printers with the ability to 
transmit data. , 

An example of this function is: 

var IDst, protoc ol : integer. 

protocol LineCTSnormal; 

IOst := DCPhandShake (protocol); { set protocol to CTS normal 
if IOst O 0 

then writeln ( 'DataComm error: '. iost: 1); 


DCPgetUnitNo Function 

DCPgetUnitNo returns the current driver unit code. The 
definition of this function is: 

FUNCTION DCPgetUnitNo: integer; 

The function returns the current driver unit code. The current 
driver unit code is one of the following: 


Identifier 

1 

< 

Va 1 ue 

= 4- 

i 

< 

Description 

+ — H 
II 1 

li 1 

II ! 

II 

II 1 

II 1 

II 1 

Pr interUn i t 

t 

0 

i 

« 

Printer 

1 

1 

DtaComlUri i t 

1 

1 

1 

i 

i 

DataComm 1 

1 

1 

DtaC om2Un i t 

1 

1 

2 

i 

i 

DataComm 2 

i 

t 

DCP i nvUn i tNo 

1 

1 

-1 

i 

i 

h 

Unit number not set 

1 

I 

+ 


An example of this function is: 


var CurUnit: integer; 


CurUnit := DCPgetUnitNo; 
case CurUnit of 

PrinterUnit: writeln 
DtaComlUnit: writeln 
DtaCom2Unit: writeln 
DCPinvUnitNo: writeln 
end; (case) 


('Current unit is 
( 'Current unit is 
( 'Current unit is 
('Unit number not 


Printer ' ) ; 
DataComm 1 ' ) ; 
DataComm 2 ' ) ; 
set ' ) ; 
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DCPsetUnitND Function 

DCPsetUni tNo selects the current driver unit. The definition of 
this function is: 

FUNCTION DCPsetUnitNo (UnitNo: integer): integer; 




Data Type 


integer 


! Description 

! Driver unit code 
+ 


+ 

I 

I 

+ 

I 

l 

+ 


The function returns the IORESULT from the data comm driver. The 
current driver unit code is one of the following: 


! Identifier 

Value 

! Description ! 

! Pr 3 ntt-rUn i t 

0 

! Printer ! 

! DtaComlUnit 


; DataComm 1 ! 

1 DtaCom2Unit 


! DataComm 2 ! 

+- + 


An example of this function is: 
var IOst. integer; 

ICJst := DCPsetUnitNo ( Pr i n t erUn i t ) ; 

if I (1st <> O 

then writeln ('DataComm error: '/iost.l); 
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DCPr dStatus Function 

DCPrdStatus returns the data comm input buffer status 
information. The definition of this function is: 

FUNCTION DCPrdStatus (var RDst: RdBufStatus): integer. 

WSSSarsBSSS-fxBaiSKi&BBBBaBKB-fBSSBaaSBBBBSXSSBlBBBBBKVKCXBI 

Parameter ! Data Type ! Description 

:=BSSSSISSBB-|<s;sBSSSSSBBBSSB-fSESSBBaEBBBBBBBBSBr&B = SSs:SS3 

RDst i RdBufStatus I Status record 

+ + 

The function returns the IORESULT from the data comm driver. 

An example of this function is; 

var IDst: integer; Rstatus: RdBufStatus; 

IOst := DCPrdStatus (Rstatus); 
with Rstatus do begin 

end ; 

DCPwrStatus Function 

DCPwrStatus returns the data comm output buffer status 
information. The definition of this function is: 

FUNCTION DCPwrStatus (var WRst: WrBufStatus ) : integer; 

1 Parameter ! Data Type i Description ! 

i WRst ! WrBufStatus ! Status record ! 

•+ + + + 

The function returns the IORESULT from the data comm driver. 

An example of this function is: 

var IOst: integer; Wstatus: WrBufStatus; 

IOst := DCPwrStatus (Wstatus); 
with Wstatus do begin 

end ; 
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DCPautoLF Function 

DCPautoLF toggles the current driver unit auto linefeed switch. 
The definition of this function is: 

FUNCTION DCPautoLF: integer; 

The function returns the IORESULT from the data comm driver. 

An example of this function is: 

var lOst: integer; 

IOst : = DCPautoLF; 
if IOst <> O 

then writeln ( 'DataComm error: ' > iost: 1); 
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PrtDataCom Function ; 

PrtDataCom set the printer driver data comm port. The definition 
of this function is: 

FUNCTION PrtDataCom (Port: integer): integer; 

I Parameter ! Data Type ! Description 

! Port ! integer ! Printer data comm port code 

+ + +— 

The function returns the IORESULT from the printer driver. The 
printer driver data comm port is set to the specified port. The 
data comm port code is one of the following: 

-fasssssrrsssisssrssB + ssisseaK + sssssssssssErBsssssrsssBBssvsxBSBe-f' 

! Code Identifier ! Value ! Description ! 

! Portl ! O I Data comm port 1 i 

+ h + — ; + 

1 Ports ! 1 ! Data comm port 2 ! 

+ + + — i + 

An example of this function is: 
var IOst.port: integer; 
port := Port2; 

IDst := PrtDataCom (port); -C set data comm port to 2 > 
if IUst -C> O 

then uiriteln ( 'DataComm error: '.iost:l); 
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PrtTb IStatus Function 

PrtTblStatus returns printer driver status information. The 
definition of this function is: 

FUNCTION PrtTblStatus (var CPI.LPI: integer): integer; 

f 

I 
i 

+ 

I 
I 

+ 

I 
I 

+ 


! Parameter i Data Type • Description 

4 >ErSS = = = =BSe-f 3 SSBBaBBB&SSSSS-{- = EC = esaB 2 SSS=XBS:BS 3 C = = X 

! CPI I integer i Current printer chars/inch 

+ + + 

! LPI ! integer i Current printer lines/inch 

+ + f 


The function returns the IORESULT from the data comm driver. CPI 
is set to either 10 or 12. LPI is set to either 6 or 8. 

An example of this function is: 

var IOs t < c p i , 1 p i : integer; 

IOst := PrtTblStatus (cpi.lpi); 
if IOst <> O 

then uriteln ( 'DataComm error: '»iost:l); 
writeln ('Printer driver is set to '»cpi:l. 

' chars/inch and '» 1 p i : 1» ' lines/inch'); 
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The Volume Directory Unit 
c c: D I R i o 


■'lie Volume Directory Unit is used to read and write volume 
’.rectories Directories may contain either MSB first integers 
< CCQS format) or [.SB first integers (UCSD format). The unit 
converts the directory integers to true integers if needed. 


♦■ft**## NOTE *#**## 

WRITING VOLUME. DIRECTORIES IS NOT RECOMMENDED. 

ft################# 


The ciDIRio unit USES no other units. 

The unit is included in user software by declaring: 
USES LTU /CCUT 1L/CCL1BT ccDIRio; 


ccDIRio [in it Constants 

Constants defined in ccDIRio are: 

I Identifier I Value ! Description ! 


DlockSize 

i 

1 

512 

1 

1 

Number of bytes in data block 

VIDlength 

n 


B 

Volume ID string length 

T ID1 ength 

H 


B 

File ID string length 

Ma x D i r En t 

H 


• 

• 

-+• 

Maximum number of directory entries 
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ccDIRio Unit Types 

Data types defined in ccDIRio are: 



:r= = = = = ==3S = tSSSS = SSSS3BSBSSSXSESS:BSSEBEXSESaMSBB8BaX = B3SC;- 

Data Type ! Description 

DirRange ! Directory record index range 

— + 1 

! 0. . MaxDirEnt; 

— + + 

VID ! Volume ID string 

— h H 

! s tr i ng C VID 1 eng th 3 ; 


TID I File ID string 

-+ + 

! s tr ing LT J D1 eng th 1 ; 

— H- — — — — — — — — — — — — 


FileKjnd ! File type 


Un t y p e d F i 1 e 

I 

0 

+- 

1 

1 

Directory header 

XDskFi le 

1 

1 

1 

. . . unused 

Cod eFi 1 e 

1 

1 

2 

• 

UCSD p-System code file 

T e x tF j 1 e 

1 

< 

3 

f 

Text file 

Inf oF lie 

1 

XI 

1 

1 

. . . unused 

DataF i 1 e 

j 

5 

1 

1 

Data file 

Graf F i. 1 e 

1 

1 

6 

1 

1 

. . . unused 

F o t oF 3 1 u 

1 

7 

1 

1 

. . . unused 

Sec ur Dir 

1 

1 

8 

1 

1 

h- 

Directory header 
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Data Type i Description 


DateRec i System date record 

+ 

packed record 



year : 

0 . 

. 100; 

day : 

0 . 

. 31; 

month : 

0 . 

. 17; 


+ 

DirEntry ! Volume directory record 


packed record 
firstblock: integer; 
nextblock: integer; 

MarkBit: boolean; 

filler: O. .'2047; 

case fkind: FileKind of 

5ECURDIR, UNTYPEDFILE: 


< d v i d : 
deovb lock: 
dnumf i 1 es : 
dloadtime: 
dlastboot: 
MemF lipped: 
DskFlipped: 


VID; 

integer; 
integer; 
integer; 
DateRec; 
boolean; 
b oolean ) ; 


{ Disk volume name > 
{ Last block of volume > 
■C Number of files > 
{ Time of last access > 
< Most recent date > 
f TRUE if flpd in memory > 
{ TRUE if flpd on disk > 


XDSKFILE, CODEFILE, TEXTFILE, INFOFILE, 

DATAFILE, GRAFF I LE, FOTOFILE: 

(dtid: TID; <. Title of file > 

dlastbyte: 1 . . E 1 oc k S i z e ; -C Bytes in last block > 

daccess: DateRec); ■{ Last modification date > 


Directory ! Volume directory 

• + 

array IDirRangel of DirEntry; 
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ccDIRio Unit Variables 

Variables defined in ccDIRio are: 

None. 

ccDIRio Unit Functions and Procedures 
Procedures defined in ccDIRio are: 


ar + 

I 

i 

- + 

I 

I 

- + 


Functions defined in ccDIRio are: 
None . 




! Procedure/Subroutine ! 

+ + + 

Pascal ! FORTRAN ! Description 

ccDIRioInit ! ...none ! Unit initialization 


GetVolDir 

! . 

. . none ! 

Read volume 

d irec tory 


PutVolDir 

> 

. . none ! 

Write volume 

d irectory 



ccDIRi olnit Procedure 



ccDIRioInit initializes the ccDIRio unit. This procedure may 
called before any other procedures in this unit are called, 
definition of this procedure is: 

PROCEDURE ccDIRioInit; 

Currently, this procedure does nothing 

An example of this procedure is: 

ccDIRioInit; 


b e 
The 
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GetVolDir Procedure 


GetVolDir reads the directory of the specified volume. The 
definition of this procedure is: 


PROCEDURE GetVolDir < VolID: 

var VolDir: 
var VolBlocked: 
var VolDevNo: 
var VolValid: 


VID; 

directory, 
bool ean; 
integer; 
boolean ) ; 


+- 




I Parameter i Data Type ! Description 
! VolID ! VID i Volume name 


VolDir 

- + - 

• 

1 

d ir ec tory 

+- 

1 

1 

Volume 

d irectory 

VolBlocked i 

boolean 

1 

1 

Volume 

blocked flag 

VolDevNo 

1 

integer 

1 

Vo 1 ume 

unit number 

VolVal id 

1 

- + - 

bool ean 

i 

I 

+ - 

Volume 

directory valid flag 


+ 

i 

i 

+ 


+ 

i 

+ 


This procedure reads the directory of the volume specified by 
VolID into the VolDir data area. VolBlocked is TRUE if the 
volume is blocked (a disk volume). FALSE otherwise. VolDevNo is 
the system unit number of the specified volume. VolValid is TRUE 
if the volume directory is valid. FALSE otherwise. 
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A simple program to display the file names contained in a 
specified volume illustrates the use of this procedure. 

program dirlist; 

uses -C$u /c cut i 1 /c c 1 i b > ccDIRio; 
var d: directory; 

Vo 1 Name: VID; 

B1 kFlg, ValFlg : boolean; 

DevNbr/i: integer; 
begin 

ccDIRioInit; 

writeln; write ('Enter volume name: '); 
readln (VolName); 

GetVolDir < Vo 1 Name, d , BlkFlg, DevNbr , ValFlg); 
if not ValFlg then begin 

writeln ('Invalid volume name specified 
exit (dirlist); 
end ; 
writeln; 

writeln ('Volume is mounted on system unit 'iDevNbr:l); 
if not BlkFlg then begin 

uiriteln ('Volume is not blocked 
■ — exit (dirlist); 
end ; 

writeln ('Volume ',dLOD.dvid, ' contains ', 

d L OD . dnumfiles: 1 , ' files '); 
write ('Directory type = '); 
if d COD . DskF lipped 

then write ( 'UC3D ') else write ('CCOS '); 
case d COD. f k ind of 

untypedfile: writeln ('untyped'); 

securdir: writeln ('secure directory'); 
end; 

for i := 1 to d COD. dnumf i 1 es do begin 
writeln (' '.dtiD.dtid); 
end; 

end. 
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PutVolDir Procedure 

PutVolDir writes a volume directory. Use of this procedure is 
NOT recommended. The definition of this procedure is: 

PROCEDURE PutVolDir (var VolDir: directory; 

VolDevNo: integer); 


Data Type ! Description 


directory ! Volume directory 


integer ! Volume unit number 


This procedure writes the directory. VolDir. to the volume 
mounted on system unit VolDevNo. 

An example of this procedure is: 

var NewUnit: integer; 

NewDir: directory; 

PutVolDir ( NewD i r , NeuiUn i t ) ; 
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Device Directory Description 

Volumes reside on a blocked device, a disk. Each volume has a 
device (volume) directory which contains information about the 
volume and the files within that volume. A complete directory is 
an array of 78 directory entries/ the first record being the 
header record which describes the specific volume. The other 77 
entries are for the files. 

The diagram below illustrates the layout of a single directory 
record. The upper section is common to all directory entries. 

In the lower section/ the entries on the )eft side correspond to 
a volume header record and those on the right side correspond to 
a file record. 


Directory Record Format 


: : Byte : : 

! Volume Header Record ! Offset ! File Record 1 


! First block 

+ 

! Next block 

+ +- 

1 File Kind ! 


O 


first block 


. unused 


2 ! Next block 

+ + - 

4 ! File Kind ! 

+ + - 


. unused 



+ _ 

— 

-4- 

+ 

4- 

Disk volume name 

( 1 > ! 

6 

! File 

name 

( i ) : 

(2) 

(3> : 

8 

! ( 2 ) 


(3) : 

(4) 

( 5 ) ! 

10 

i (4 ) 


( 5 ) ; 

+_ 

h 


■4 

— + — 

+ 

(6) 

(7) ; 

1? 

; (6> 


<7) ; 


H- 


+ 

4- 



Last block 

i 

14 

! (B) 


( 9 ) ; 

Number of files 

i 

i 

16 

! ( 10) 


(li): 

Last access 

» 

18 

: ( 12) 


( i 3 > : 




4 

4- 

4- 

La 5 1 boot 

i 

i 

20 

1(14) 


(IS)! 




4~ 

+ 

4- 

Hem flipped ! Disk 

flipped ! 

22 

i La s t 

byte 

> 

i 

. . . unused 

1 

1 

24 

! Last 

access 

i 

i 



— 

- + 
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The elements in a directory record are: 

FIRST BLOCK 

is a word quantity which is the block number of the first 
block for the volume or file. This field is zero in the 
volume header record and the first block number of the file 
in file records. 

NEXT BLOCK 

is a word quantity which is the block number of the next 
available block for the volume or file. For the volume 
header record* this is the first block number after the 
volume directory which is normally block 6. For file 
records* this is the last block number of the file plus one. 

FILE KIND 

is a four-bit quantity which is the kind of file that the 
record describes The values of file kind that are of 
interest arc: 

O - a volume directory header* 

2 - a UCSD p-System code file* 

8 - a text file. 

5 - a data file. 

8 — is also a volume directory header. 

The file kind field is followed by 12 bits of unused space to 
fill up the word. The following sections describe the 
different layouts of a directory record depending on the file 
kind field. 
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Directory Volume Header Record 

If the FILE KIND field in the directory record indicates that 
this record is a volume header record, the following fields are 
valid: 

VOLUME NAME 

is a 8--bytc field containing the volume name. The first byte 
contains the length of the volume name. The remaining 7 
bytes are the characters of the volume name. ie. a seven 
character string. 


LAST RLOCK 


it- a word quantity which is the number of the last available 
block on this volume. 

NUMBER OF FILES 

is a word quantity which is the number of files on this 
vo 1 ume. 

LAST ACCESS 

is a word quantity which is not used - it is set to zero. 

last boot 

is a word quantity which contains the most recent setting of 
the date This word is in fact a date record. 

MEMORY FLIPPED 

is a boolean quantity used only by the system. 

DISK FL IPPED 

is a boolean quantity used only by the system. 

There are two unused bytes at the end of the volume header 
record. 
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Directory File Record 

If the FILE KIND field in the directory record indicates that 
this record is a file records the following fields are valid: 

FILE NAME 

is a 16-byte field containing the file name. The first byte 
contains the length of the file name. The remaining 15 bytes 
are the characters of the file name, ie ( a 15 character 
string 

LAST BYTE 

is a word quantity which is the number of bytes in the last 
block of the file. 

LAST MODIFICATION DATE 

is a word quantity containing a date record representing the 
last time that this file was changed. 
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The Graphics Display Unit 
ccGRF io 

The Graphics Display Unit is used to interface with the graphics 
functions of the display driver. 

The ccGRFio unit USES unit ccDEFN. 

The unit is included in user software by declaring. 

USES -C*U /CCUTIL/CCLIB> ccDEFN, ccGRFio; 


ccGRFio Unit Constants 

The following tables describe the Mode and Qualifier values for 
the SetQrigin* PlotPoint* and DrawLine procedures. Constants 
defined in ccGRFio are; 


Mode Values for PlotPoint and DrawLine Procedures 

•fSSSSSSXBSSSs-fSSSZXSSi-f SSSSCSrEaSBSSSSBBBXVgiSBXlIBXBBBaKS-t' 


! Identifier ! Value ! Description 


GrfMwh ite 

1 

1 

= = = == 

1 

1 

1 

Draws 

white 

pixels 

Grf Mb lack 

1 

1 

0 

l 

1 

Draws 

black 

pixels 

GrfMf 1 ip 

1 

1 

h- 

-1 

1 

1 

+- 

Draws 

inverse of screen pixels 
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Identifier ! Value ! Description 


Gr fQgrRel 


Gr f QgrAb s 


GrfQchRel 



Set origin relative to current 
graphics origin 


Set origin to absolute graphics 
coordinates 


Set origin relative to current 
character cursor position 


! GrfQchAbs 



Set origin to character cursor 
position ( X/ y > 


ccGRFio Unit Types 

Data types defined in ccGRFio are: 
None . 

ccGRFio Unit Variables 

Variables defined in ccGRFio are: 


Var iab le 

Data Type 

Description 

GrfPicBuf 

pWords 

Graphics picture buffer pointer 

GrfPicPtr 

pBytes 

Graphics picture data pointer 

GrfPicWd 

integer 

Graphics picture width (pixels) 

GrfPicHt 

integer 

Graphics picture height (pixels) 

Gr f P i cLn 

1 ong int 

Graphics picture data size (bytes) 
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ccGRFio Unit Functions and Procedures 

Procedures defined in ccGRFio are: 

Procedure ! Description 

: = as33 3C3;rBBS=;z: + s=:=sr= = =:s = s:rx=:3CE=:z = = s = = r = s = s = = 3:ca33BrBc:=;=: 

ccGRFioInit ! Unit initialization 

(. 

ccGRFioTerm ! Unit termination 

f 

SetOrigin ! Set graphics origin 

+ 

! PlotPoint i Plot display screen point 

+ + 

I DrawLine i Draw display screen line 

4 1 - 

! FillBox ! Fill display screen area 

+ + 

I CopyBox ! Move display screen data 

+ 4 

i ReadBytes ! Move data from display screen (one line) 

4 

WriteBytes ! Move data to display screen (one line) 

f 

! RelGrfPic I Release graphics picture buffer 

4 4 

Functions defined in ccGRFio are: 


Procedure 

Description 

A1 oGr f Pi c 

Allocate graphics picture buffer 

RdDi sp 

Move data from display screen (rectangle) 

WrDi sp 

Move data to display screen (rectangle) 

DspToDsk 

Move data from display screen to disk file 

DskToDsp 1 

Move data from disk file to display screen 


Copyright 1983 Corvus Systems* Inc. 


September 1* 1983 


















ccGRFio 
Page 7-4 


Corvus Concept Pascal System Library 
Graphics Display Unit 


ccGRFioInit Procedure 

ccGRFialnit initializes the ccGRFio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccGRFioInit; 

An example of this procedure is: 

ccGRFioInit; 


ccGRFioTerm Procedure 

ccGRFioTerm terminates the ccGRFio unit. This procedure is 
called prior to program termination. The definition of this 
procedure is: 

PROCEDURE ccGRFioTerm; 

The procedure releases the graphics picture buffer if one is 
allocated. An example of this procedure is: 

c cGRF i oT erm; 
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SetOrigin Procedure 

SetOrigin sets the graphics origin. The definition of this 
procedure is: 

PROCEDURE SetOrigin ( NewX. NewY. Qua 1 : integer)) 


Parameter ! Data Type 



sssasssssss; 

integer 


integer 


integer 


Description 


New graphics origin 
(graphics coordinates) 


Qualifier code from table belou 


The procedure sets the current graphics origin to the specified 
coordinates. Qual is one of the qualifier values described 
below: 

! Identifier ! Value ! Description ! 


I GrfQgrRel I l ! Set origin relative to current 

i ! I graphics origin 


Gr f QgrAb s 

- + 

1 

1 

1 

1 

2 

+- 

1 

1 

1 

1 

Set origin to absolute graphics 
coord inates 

GrfQchRel 

1 

1 

1 

3 

1 

1 

I 

1 

Set origin relative to current 
character cursor position 

Gr f Qc hAb s 

1 

1 

i 

4 

« 

t 

t 

1 

+ - 

Set origin to character cursor 
position (x.y) 


For a more detailed explanation of these values< please refer to 
the "Corvus Concept Operating System Manual. " 

An example of this procedure is: 

SetOrigin ( 0 , O. Gr f Qgr Ab s > > { set origin to graphics 0.0 > 
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PlotPoint Procedure 

PlotPoint displays one point on the display screen. The 
definition of this procedure is: 

PROCEDURE PlotPoint ( Xc oor d < Ycoor d . Mod e : integer); 


Parameter 

Data Type 

1 Description 

( 

• 

Xc oord 

integer 

! Point at which to plot point ! 

► (graphics coordinates) ! 

Yc oord 

integer 

I 

l 

j 

Mode 

integer 

! Mode code from 

table below 


The procedure sets the indicated pixel based on Mode. Mode is 
one of the mode values described below: 


Identifier i Value i Description 


GrfMwh ite 

1 

! Draws white pixels 

Gr fMb lack 

0 

Draws black pixels 

GrfMflip 

-1 

1 Draws inverse of screen pixels 


An example of this procedure is: 

PlotPoint ( lOOi 100. Gr f Mwh i t e ) ; -C plot white point at 100.100 > 


September 1, 1983 


Copyright 1983 Corvus Systems. Inc. 






















Corvus Concept Pascal System Library 
Graphics Display Unit 


ccGRF i o 
Page 7-7 


DrawLine Procedure 

DrawLine draws a line on the display screen. The definition of 
this procedure is: 

PROCEDURE DrawLine ( Star tXi Star tY» 

EndX. EndY. Mode: integer); 


Parameter 

= + : 

| 

SSSSSSESBSSBBS 

Data Type 

38*E + S 

1 

sssssssBsaxaBCzsssBsxxsxsassssss 

Descr i p t i on 

StartX 

i 

i 

integer 

1 

1 

Starting point of line 
relative to graphics origin 
(graphics coordinates) 

Star tY 

i 

i 

integer 

1 

1 

EndX 

i 

i 

integer 

1 

Ending point of line 
relative to graphics origin 
(graphics coordinates) 

EndY 

i 

integer 

f 

1 

Mode 

t 

i 

- + ■ 

integer 

« 

I 

+ - 

Mode code from table below 


The procedure draws a line from the starting graphics coordinate 
to the ending graphics coordinate. Mode is one of the mode 
values described below: 


i Identifier ! Value I Description 


Grf Mwh ite 

1 

1 

MB 


Draws 

wh ite 

pixels 

GrfMb lack 

9 


I 

Draws 

black 

pixels 

GrfMf 1 ip 

H 


I 

Draws 

inverse of screen pixels 


An example of this procedure is: 

DrawLine ( 0 . 0 / 1 00 / 100 / Gr f Mwh i te ) ; •£ draw white line > 

■C from coordinate 0< 0 > 

■C to coordinate 100/ 100 } 
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FillBox Procedure 

FillBox fills a rectangular area on the display screen. The 
definition of this procedure is: 

PROCEDURE FillBox (StartX, StartY, 

Width/ Height# Density : integer); 



The procedure fills the specified rectangle with pixels of the 
specified density. A density of 1 completely fills the 
rectangle. A density of 2 displays every other pixel. A density 
of 3 displays every third pixel# and so forth. 

An example of this procedure is: 

FillBox <0# 0# 100. 100, 3) ; -C fill every third pixel in > 

{. 100 x 100 pixel area > 
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CopyBox Procedure 

CopyBox copies a rectangular area from one area to another on the 
display screen. The definition of this procedure is: 

PROCEDURE CopyBox (StartX, StartY, Width, Height, 

NewX»NewY: integer); 


Parameter 

1 

1 

isssrsssxs 

Data Type 

caas-fi 

i 

Description 


StartX 

1 

1 

integer 

i 

i 

Lower left corner coordinate 

StartY 

1 

1 

integer 

i 

(graphics coordinates) 


Width 

1 

1 

integer 

i 

i 

Pixel width of area 


Height 

1 

1 

integer 

i 

i 

Pixel height of area 


NewX 

1 

1 

integer 

i 

i 

Lower left corner coordinate 

NeuiY 

1 

1 

- + - 

integer 

t 

i 

(graphics coordinates) 



The procedure moves screen pixel data from one area to another on 
the display screen. 

An example of this procedure is: 

CopyBox (0,0,100,100,200,200); i move a 100 x 100 pixel area > 

< from coordinates 0,0 > 

■C to coordinates 200,200 > 
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ReadBytes Procedure 

ReadBytes reads a series of pixels from the display screen. The 
definition of this procedure is: 

PROCEDURE ReadBytes (Count: integer; pBuff: pBytes); 


+=======s 


i Parameter I Data Type 


! Count 


I integer 


! Description 


:=t= = r = &=:SC3ZS3SB-fS = S2:E=ESSSESZZBSCX2aESCSS = S: 


I Number of bytes to move 


: pBuff 


! pBytes 


! Screen data buffer pointer 


The procedure moves screen pixel data starting at the current 
graphics cursor position to the buffer pointed to by pBuff. 

Bytes are assembled from the pixels to the right (X direction) of 
the current graphics cursor position. 

Each byte represents eight pixels. Data type pBytes is defined 
in the ccDEFN unit. 


An example of the ReadBytes procedures is included in programming 
example for the WriteBytes procedure (next section). 
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WriteBytes Procedure 

WriteBytes writes a series of pixels to the display screen. The 
definition of this procedure is: 

PROCEDURE WriteBytes (Count: integer; pBuff: pBytes); 

i Parameter ! Data Type i Description 

! Count I integer ! Number of bytes to move 

+ + + 

I pBuff i pBytes i Screen data buffer pointer 



The procedure moves pixel data from the buffer pointed to by 
pBuff to the display screen starting at the current graphics 
cursor position. Bytes are moved to the right (X direction) of 
the current graphics cursor position. 

Each byte represents eight pixels. Data type pBytes is defined 
in the ccDEFN unit. 


Inc . 
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An example of the ReadBytes and WriteBytes procedures is 
illustrated in the following trivial program: 

program RdWrScreen; 

•C This program reads a small area of the display screen > 

< into memory and then rewrites the screen with the data > 

■C inverted (bottom lines at the top# etc. ) > 

uses <*u /c cut i 1 /cc 1 i b > ccDEFNi ccGRFio; 

const maxlin = 100; -C define 100 lines > 

maxcol = 40; -C of 320 pixels (40 x 0) > 

var ScrBuf: array CO. max 1 in/ 0. . maxcol 1 of byte; 
pScrBuf: pBytes; curline: integer; 

begin 

ccGRFioInit; 

for curline := maxlin downto O do begin 

SetOrigin ( 0/ c ur 1 i ne ( Gr f Qgr Ab s ) ; -C set origin > 

pScrBuf := SScrBuf Ecur 1 ine/ OD; -C get buffer pointer > 

ReadBytes (maxcol/ pScrBuf ) ; -C get data from screen > 

end ; 

for curline := maxlin downto O do begin 

SetOrigin ( 0/ ma x 1 in-c ur 1 ine/ Gr f Qgr Ab s ) ; -C set origin > 

pScrBuf := SScrBuf C c ur 1 ine/ 03 ; -C get buffer pointer > 

WriteBytes ( ma x c o 1 / pScrBuf ) ; -C get data from screen > 

end; 

end . 
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AloGrfPic Function 

AloGrfPic allocates on the heap a buffer to contain an image of 
the specified size. 

Function AloGrfBuf is essentially a "MARK" using variable 
GrfPicBuf and a "NEW" with a variable allocation size. Function 
RelGrfPic is essentially a "RELEASE" using variable GrfPicBuf. 
Keep this in mind when doing other heap related operations while 
using display screen images. 

The definition of this function is: 

FUNCTION AloGrfPic (Widths Height# DvhdLen: integer): boolean; 



The function result is TRUE if the buffer is successfully 
allocated or FALSE otherwise. The following variables are set: 

S Variable ! Data Type ! Description ! 

I GrfPicBuf I pWords ! Graphics picture buffer pointer ! 


Gr f P i cPtr 

- + - 

1 

1 

pBytes 

+ - 

t 

* 

t 

1 

Graphics picture data 
(GrfPicBuf + OvhdLen) 

pointer 

GrfPicWd 

1 

1 

integer 

i 

1 

Graph ics 

pic ture 

width 

(pixels) 

GrfPicHt 

1 

1 

integer 

1 

i 

Graph ics 

pic ture 

height (pixels) 

Grf P i cLn 

1 

< 

1 ong int 

1 

1 

+ - 

Graph ics 

p i c ture 

data 

size ( bytes > 


The buffer is available until the RelGrfPic procedure is called. 
If a buffer is already allocatedi procedure RelGrfPic is called 
before allocating a new buffer. The DspToDsk and DskToDsp 
functions use this function when allocating buffer space for 
display screen images. 
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An example of this procedure is: 

var i,wd.ht: integer; 

wd : = 100; ht : - 100; 
if AloGrfPic (wd,ht,0) 
then begin 

i := RdDisp ( Gr f P i cP tr , 0, 0, wd , h t ) ; 
i : = WrDisp ( Gr f P i c P tr , 2, 2, wd , h t , 1 ) ; 
RelGrfPic; 
end 

else .... -C heap space not available > 


RelGrfPic Procedure 

RelGrfPic releases the display screen image pointed to by 
variable GrfPicBuf. 

Function AloGrfBuf is essentially a “MARK" using variable 
GrfPicBuf and a "NEW" with a variable allocation size. Function 
RelGrfPic is essentially a "RELEASE" using variable GrfPicBuf. 
Keep this in mind when doing other heap related operations while 
using display screen images. 

The definition of this procedure is: 

PROCEDURE RelGrfPic; 

The DspToDsk and DskToDsp functions use this procedure when 
deallocating buffer space for display screen images. An example 


this 

procedure 

i s : 

var 

i , wd , h t : 

integer; 

wd 

:= 100; ht 

: = 100; 

if 

AloGrfPic 

<wd, ht, 0) 


then beg in 

i :■ RdDisp (GrfPicPtr, O, O, wd, ht ) ; 
i := WrDisp (GrfPicPtr, 2, 2, wd, ht, 1 ) ; 
RelGrfP ic; 
end 

else .... -C heap space not available > 
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RdDisp Function 

RdDisp moves data (pixels) from the display screen to the 
specified buffer. The definition of this function is: 

FUNCTION RdDisp (DstBufPtr: pBytes. 

Xcoord. Ycoord. 

Width. Height: integer): integer; 


I Parameter i Data Typi 




i Description 


! DstBufPtr I pBytes ! Destination buffer pointer ! 

+ + + + 

! Xcoord ! integer ! Lower left coordinate of area ! 

+ + h to move (graphics coordinates ! 

! Ycoord I integer i in current window) ! 

+ + + + 

I Width i integer i Pixel width of area ! 

+ + . + + 

! Height ! integer ! Pixel height of area ! 

+ + + + 


The function returns the status of the move, 
results are: 


Valid function 


I Identifier ! 





+ 


+ 


Value ! Description ! 

0 ! Successful operation ! 

+ + 


14 ! Specified area not entirely in 

! current window 


The destination buffer is assumed to be large enough to contain 
the pixel data in the specified area. 

Xcoord and Ycoord are graphics coordinates relative to the 
current window graphics origin of the lower left corner of the 
area to be moved. The area specified must be entirely in the 
current window. 

If the command is successful, the specified buffer contains pixel 
data from the display screen. 
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HINT: If the function result is 14< ensure the graphics origin of 
the current window is correct. 

An example of this function is: 

var i.wd.ht: integer; 


wd : = 100; h t : = 100; 
if AloGrfPic (wd.ht.O) 
then beg in 

i := RdDisp (GrfPicPtri O. Oi wd. ht > ; 

if i = 0 then .... -C pixels moved successfully > 

else .... -t area not entirely in > 

{ current window > 

i := WrDisp ( Gr f P i cP tr . 2. 2. wd . h t. 1 ) ; 

if i = 0 then .... -C pixels moved successfully > 

else .... < area not entirely in > 

■C current window > 

RelGrfPic; 

end 

else .... -C heap space not available > 
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WrDisp Function 

WrDisp moves data (pixels) from the specified buffer to the 
display screen. The definition of this function is: 

FUNCTION WrDisp (SrcBufPtr: pBytes; 

Xcoord< Ycoord. 

Width, Height* Mode: integer): integer; 

fss==:z2 = =s=;s;f = = 3;xE=:EXSSBaB«-f = s = =:=! = = = = = =:s = sx = sca:B = = EBsea. 


! Lower left coordinate of area 
+ to move (graphics coordinates 
! in current window) 

+ 

Width i integer I Pixel width of area 


The function returns the status of the move. Valid function 
results are: 

i Identifier ! Value 

! . . . . ! 0 


! 14 

I I 

+ + 

If SrcBufPtr is NIL (by specifying POINTER(O)), the specified 
area is filled with every other pixel on. This may be used to 
generate a shaded background. 

Xcoord and Ycoord are graphics coordinates relative to the 
current window graphics origin of the lower left corner of the 
area to be moved. The area specified must be entirely in the 
current window. 

If the command is successful, the display screen contains pixel 
data from the specified buffer. 


Description 

Successful operation 

Specified area not entirely in 
current window 



Height 


integer ! Pixel height of area 

+ 

integer ! Move mode -1 - XDR data 

I O - OR data 

1 1 - AND data 


i Parameter i Data Type 

! SrcBufPtr ! pBytes 

+ + 

I Xcoord ! integer 

+ + 

I Ycoord i integer 
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HINT: If the function result is 14, ensure the graphics origin of 
the current window is correct. 

An example of this function is: 

var i,wd,ht: integer; 


wd : = 100; ht : = 100; 
if AloGrfPic <uid,ht,0> 
then begin 

i := RdDisp (Gr f P i cPtr , O, 0, wd , h t ) ; 

if i = O then .... -C pixels moved successfully > 

else .... -C area not entirely in > 

< current uiindou; > 

i := WrDisp ( Gr fP i cPtr, 2, 2, wd , h t, 1 ) ; 

if i = O then .... -C pixels moved successfully > 

else .... < area not entirely in > 

{ current window > 

RelGrfPic; 

end 

else .... { heap space not available > 
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DspToDsk Function 

DspToDsk moves display screen data (pixels) to the specified disk 
file. The definition of this function is. 

FUNCTION DspToDsk (FilelD: string80; 

Xcoordi Ycoord* 

Widthi Height: integer): integer; 






Parameter ! Data Type ! Description 


+» 

1 

1 

!S=SS3BXS 

FilelD 

i 

ssaasnaBEs: 

str ingSO 

■ ssas4*’ 

< 

i 

Destination file name 

1 

1 

Xcoord 

i 

i 

integer 

i 

i 

Lower left coordinate of area 

1 

1 

Ycoord 

i 

integer 

i 

i 

in current window) 

« 

I 

Width 

i 

< 

integer 

i 

i 

Pixel width of area 

t 

1 

+- 

Height 

i 

+ ~ 

integer 

i 

+ ■ 

Pixel height of area 


The function returns the status of the move which is the IOresult 
returned from the disk access. Valid function results are: 





Value 

0 

! Description 

+ S = = = S = 3XrB3SXas;B3SBBS;S33S = 3S = 3S: 

! Successful operation 

7 

! Invalid file name 

8 

! No room on volume 

9 

i Volume not found 

14 

! Specified area not entirely in 


! current window 

15 

! No buffer space available 

16 

I Volume write protected 



Xcoord and Ycoord are graphics coordinates relative to the 
current window graphics origin of the lower left corner of the 
area to be moved. The area specified must be entirely in the 
current window. 
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IF the command is successful, the specified buffer contains pixel 
data from the display screen. 

HINT: If the function result is 14< ensure the graphics origin of 
the current window is correct. 

After writing display data to a disk file/ the following 
variables are set until procedure RelGrfPic is called. 


Data Type ! Description 

pWords ! Graphics picture buffer pointer 

+ 

GrfPicPtr ! pBytes ! Graphics picture data pointer 

+ + 

GrfPicWd ! integer ! Graphics picture width (pixels) 

+ + 

GrfPicHt ! integer I Graphics picture height (pixels) 

+ + 

GrfPicLn ! longint ! Graphics picture data size (bytes) 


An example of this function is: 

var i/wd/ht: integer/ 

wd : = 100/ ht : = 100i 
i : = DspToDs k ( 'DISPLAY 0. 0, wd, ht > ; 

if i = 0 then .... { pixels moved successfully > 

else .... -C error processing > 

RelGrfPic; 
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DskToDsp Function 

DskToDsp moves data (pixels) from the specified disk file to the 
display screen. The definition of this function is: 

FUNCTION DskToDsp (FilelD: string80i 

Xcoord. Ycoord< 

Mode: integer; 

DispFlg: boolean): integer; 


Data Type i Description 


string80 ! Destination file name 


integer ! Lower left coordinate of area 

+ to move (graphics coordinates 

integer i in current window) 


! Mode ! integer ! Move mode -1 - XOR data 

! ! ! O - OR data 

! ! ! 1 - AND data 


DispFlg I boolean ! Display data if TRUE 


I Parameter 
FilelD 
Xcoord 
Yc oord 


The function returns the status of the move which is the IOresult 
returned from the disk access. Valid function results are: 



I Value ! Description ! 

I O ! Successful operation ! 

-+ + + 

! 7 ! Invalid file name ! 

-+ (■ + 

I 9 I Volume not found ! 

-+ + + 

! 10 ! File not found ! 

-+ + + 

! 14 ! Specified area not entirely in ! 

i ! current window ! 

-+ + + 

! 15 ! No buffer space available ! 

■+ + + 


Xcoord and Ycoord are graphics coordinates relative to the 
current window graphics origin of the lower left corner of the 
area to be moved. The area specified must be entirely in the 
current window. 
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If DispFlg is TRUE, data from the specified file is moved to the 
display screen. If DispFlg is FALSE, data from the specified 

file is moved to the allocated buffer, but not moved to the 

display screen. DispFlg FALSE may be used when the size of the 

image is not known. After reading the image from disk. GrfPicWd 
and GrfPicHt may be used in positioning the image on the display 
screen with the WrDisp function. 

If the command is successful, the display screen contains pixel 
data from the specified disk file. 

HINT: If the function result is 14. ensure the graphics origin of 
the current window is correct. 

After reading display data from a disk file, the following 
variables are set until procedure RelGrfPic is called: 


Var i ab 1 e 

= + = 

1 

1 

Data Type 

= + = 

i 

t 

Description 


GrfPicBuf 

j 

pWords 

! Graphics picture 

buffer pointer 

GrfPicPtr 

1 

1 

pBytes 

t 

1 

Graphics 

picture 

data pointer 

GrfPicWd 

1 

1 

integer 

1 

1 

Graph i c s 

picture 

width (pixels) 

GrfPicHt 

! 

integer 

1 

1 

Graphics 

picture 

height (pixels) 

GrfPicLn 

i 

— h- 

1 ong int 

l 

1 

Graph i c s 

picture 

data size (bytes) 


An example of this function is: 
var i: integer; 

i := DskToDsp ( 'DISPLAY O, O, TRUE ) ; 

if i = O then .... -C pixels moved successfully > 

else .... < error processing > 

RelGrfPic; 
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The Function Key Label Unit 
ccLBLio 


The Function Key Label Unit is used to manage the function key 
labels. Function key labels are displayed below the command 
window on the display screen. When the labels are displayed, 
pressing a function key generates a software-defined character 
sequence in the keyboard buffer. This character sequence is 
returned when characters are read from the label manager software 
in the CONSOLE/SYSTERM driver. 

In general, function key labels are initialized by: 

Lblslnit to initialize all label definitions 
LblSet to define label contents (one call for each label) 
LblsOn to display labels and return defined strings 
LblsOff to clear function key label display 

The ccLBLio unit USES no other units. 

The unit is included in user software by declaring: 

USES C*U /CCUi IL/CCLIB> ccLBLio; 


ccLBL.io Unit Constants 

Constants defined in ccLBLio are: 


! Identifier ! Value ! Description 

! L.blKeyLen ! 8 ! Label key text string length 

+ + + 

I L.blRtnLen J 16 ! Label return text string length 

+ + + 


+ 


+ 


+ 


+ 
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ccLBLio Unit Types 

Data types defined in ccLBLio are: 

! Data Type ! Description ! 

+ ss,' = = ==z-ss:ssa f-s = = s = =: &~3=sacsxsBaeB:EBBSCSBKSs:8:s3BiiKsnz;x«ZBsssss:3:s + 

! LblKeyStr ! Label key text string ! 

+ — + + + 

! s tr i ng CLb 1 Key Len J ; ! 

+ — + + 

! LblRtnStr ! Label return text string ! 

+- -+ + + 

! s tr ing LLb 1 RtnLen li ! 

+ + 


ccLBLio Unit Variables 

Variables defined in ccLBLio are: 
N u n e . 


ccLBLio Unit Functions and Procedures 

Procedures defined in ccLBLio are: 

! Procedure ! Description ! 

! ccLBLio In it ! Unit initialization ! 


H 

! ccLBLioTerm 

1 

1 

Unit termination 


1 Lb 1 s In i t 

1 

Initialize labels 

to blank 

! Lb 1 sOn 

■ 

1 

Turn on function 

key labels 

! l.blsOff 

1 

1 

Turn off function 

key labels 





Functions defined 

i n 

ccLBLio are: 

SEBSSBSESSBEBEBaCESBSSSSSES' 


! Function ! Description ! 

+=— ===:==•&= ssss-f ss8 ==s=r===s:asessffasi:xKRS=:i:XE:scaBsssKssss:ss=:E + 

! LblSet ! Set label d i sp lay /return strings ! 

H + + 
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ccLBLioInit Procedure 

ccLBLioInit initializes the ccLBLio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccLBLioInit; 

This procedure initializes the function key labels to blanks and 
return strings to null. This procedure does not turn on the 
function key labels. 

An example of this procedure is: 

c cLBLi o Ini t; 


ccLBLioTerm Procedure 

ccLBLioTerm terminates function key label processing. This 
procedure is called after all function key label processing is 
complete. The definition of this procedure is: 

PROCEDURE ccLBLioTerm; 

This procedure sets the function key labels to blanks and return 
strings to null. This procedure does not turn on the function 
key labels. 

An example of this procedure is: 
ccLBLioTerm; 


Lblslnit Procedure 

Lblslnit initializes all function key label information. The 
definition of this procedure is: 

PROCEDURE Lblslnit; 

This procedure turns off the currently displayed function key 
labels/ if any. All function key labels are set to blanks. All 
return strings are set to null. Function key labels are not 
displayed. 

An example of this procedure is: 

Lblslnit; 
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LblSet Function 

LblSet places text to be displayed in the function key label. It 
also defines the text to be returned when the function key is 
pressed. The definition of this function is: 

FUNCTION LblSet (KeyNbr: integer; 

LblStr: LblKeyStr; 

RetStr: LblRtnStr): integer; 

i Parameter! Data Type {Description ! 

! KeyNbr ! integer I Key number code From table ! 


+ 

— 



— 

“ + 


— 

— 

— 

— 

— 


— 

! Lb 1 

Str 

! LblKeyStr 


! Function 

key 

label 

text 


+ 

— 



— 

- + 



— — 

— 

— 

— 



1 RetStr 

! LblRtnStr 


! Function 

key 

return 

data 


+ 

— 

+ 

— 

— 

_ + 


■ — 

— 

— 

— 

— 



1 h is function 

returns 

the I/O 

result 

code 

from 

the 

label manager 

in the SYSTLRM driver 

KeyNbr 

is the key 

number 

code 

for 

the 

label from the table 

b e 1 ow. 











= 

= 44 = 

.-»+»» 
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il 
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li 

4 

:as 
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++==== 

: 4 ; 
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= 4! 


=4 

====+ 



1 key 

i l 

1 l 

FI ! F2 

! F 3 ! 

F4 
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! ! F6 
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F7 
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FB 
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33 
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4 

4 H — 

-- 

— — — — 

44 

■4- 

— 

— 1 - 

— 

— h 

4 

— 

! CU 

1 l 

1 i 

20 ! 31 

1 1 

1 C.C * 

23 

! 24 

! ! 25 

! 

26 
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i 

27 
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i 

28 ! 
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+ 

- + + - 
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44 
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— 
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4 

! S 
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13 
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4 H — 
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-4 

44 

■4 
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-4- 
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-4 
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: u 

■ i 

00 ! 01 
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03 
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09 i 

4 

-44- 


4 4- 

— 

-4 

44 


— 

-4 

— 

-4 

4 

f 

: cs 

- Command shifted 
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{ 
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- Sh ) f trd 











1 
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- Uns h i f t- e d 











» 

H 
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— 




— 

— 

— 
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«. 


LblStr is the string (up to O characters) to be displayed in 
function key label when the labels are turned on. RetStr is me 
string (up to ) 6 characters) to generate in the keyboard buffer 
when the corresponding function key is pressed. 
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An example of this function is: 

Rslt := LblSet (9, 'Exit', '0'); 

Rslt is the I/O result code from the label manager in the SYSTERM 
driver. This example sets the function label marked F10 to 
display Exit. When function key F10 with no qualifiers is 
pressed after turning on labels, a Q is placed in the keyboar 
buffer. 


LblsOn Procedure 

LblsOn turns the function key labels on once they have been set 
(see LblSet function). The definition of this procedure is: 

PROCEDURE LblsOn; 

This procedure displays the current function key labels below the 
--'"and window on the display screen. Return strings are placed 
-■it keyboard buffer when the function keys are pressed. 

A > -x ample of this procedure is: 


LblsOn; 


LblsQff Procedure 

LblsOff turns the function key labels off. The definition of 
this procedure is: 

PROCEDURE LblsOff; 

This procedure clears the display of current function key labels 
below the -command window on the display screen. Afterwards, 
pressing function keys have no effect in that no return strings 
are placed in the keyboard buffer when the function key labels 
are not displayed. The function key definitions are retained 
LblsOn may be used to redisplay the currently defined function 
key labels. 

An example of this procedure is: 

Lb 1 sOff; 


Copyright 1983 Corvus Systems, Inc. 


Sep temb er 


1, 1903 



c cLBLi o 
Page 8-6 


Corvus Concept Pascal System Library 
Function Key Label Unit 


September 1 , 1703 


Copyright 1983 Corvus Systems, 


Inc . 



Cor vue. Concept Pascal System Library 
Omninet Interface Unit 


c c OMN i o 
Page 9-1 


The Omninet Interface Unit 
c cOMNi o 


The Omninet Interface Unit is used to interface with the Corvus 
Omninet local area network. 

This document does not define the various Omninet operations, but 
details the use of the unit procedures available for interacting 
with the Omninet network. See the "Omninet Programmer's Guide” 
for a detailed description of the Omninet operations. 

The ccOMNio unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES f$U /CCUTIL/CCL IB> ccDEFN, ccOMNio; 


ccOMNio Unit Constants 

Constants defined in ccOMNio are: 

Transporter Return Codes (OCresult) 

I Identifier .Value [Description ! 

I Ok Code ! 0 ! Successful operation ! 


! GaveUp ! 128 ! Aborted a send command after ! 

! ! ! MaxRetries tries ! 

H -f H + 

i TooLong I 12V ! Last message sent was too long for ! 

! ! I the receiver ! 

+ (• h + 

! NoSockt ! 130 ! Sent to an uninitialized socket ! 

H H ■+ + 

(continued on next page) 
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Transporter Return Codes (OCresult) 

( c ont inued > 

! Identifier- i Value ! Description i 

! HdrErr ! 131 ! Sender's header length did not match ! 

! ! ! receiver's header length i 

+ + + + 

! EadSock ! 132 ! Invalid socket number ! 

-t- + n + 

! Inuse ! 133 ! Tried to set up a receive on an ! 

! ! ! active socket ! 

4- + ^ + 

! BadDr-st ! 134 ! Sent to an invalid host number ! 

+ -■- i + +■ 

! Echoed ! 192 ! Echo command was successful ! 

+ 1- + 

: CmdArpt ! 354 ! Command accepted ! 

+ - H + + 

: NoTrans ; 255 I Unable to communicate with ! 

: ! I Tran sp or ter ! 

+■ + + 


Transporter DP codes 


Identifier 

l 

Va 1 ue 

1 

1 

Description 

1 

» 

R e c vOp 

1 

$FO 

1 

1 

SETUPRECV opcode 

1 

1 

b e n d 0 p 

1 

1 

$40 

1 

1 

SENDMSG opcode 

1 

1 

Ini t D p 

1 

$20 

1 

1 

INIT opcode 

1 

1 

T n rt Op 


$10 

1 

1 

ENDRECV opcode 

1 

l 

De b Op 

• 

1 

$0B 

1 

t 

PEEK /POKE opcode 

1 

1 

Ec h ofJp 

1 

$02 

t 

1 

ECHOCMD opcode 

l 

« 

Wli oPp 

- + - 

$01 

I 

1 

- + 

WHOAMI opcode 

1 
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ccOMNio Unit Typos 

Data types defined in ccOMNio are: 



Data Type 


pOCr s I tRc d 


sltRt cl 


Pc ode : 
Sour c . 
L e n : 
UCdta: 


I Description 
! Result record pointer 


! Result record 

- -i 

byte; -C command result code 

byte/ { source host number 

integer/ < received data length 
array CO. . 2553 of byte; 

{. user control data 


> 

> 

> 

> 


ccOMNio Unit Variables 

Variables defined in ccOMNio are: 

I Variable I Data Type ! Description I 

I OCresult ! integer ! similar to UCSD Pascal IORESULT, ! 

i I ! may be checked after each command ! 


OCrs It I OCrsltRcd ! Result record which is used for I 

I ! all commands except OCsndMesg and ! 

I ! OCsetRCc v 

+ + + 

OCc urBF J I pBytes I Current buffer pointer ! 

+ + 4 

OCrurRP I pOCrslt.Rcd 1 Current result pointer I 
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ccOMNio Unit Functions and Procedures 
Procedures defined in ccOMNio are: 



Prated ure 
ccOMNiolni t 
OCsndMesg 
OCsetRecv 
OCendRec v 
OC iriitlrans 
OCwh oAml 
OCechoTraris 
OCpokeTrans 


Description 

:sssssas====xssas:ssrs3ss3s = x£s 

Unit i n i t i a 1 i z a t i on 


Send message 


Set up receive 


End receive 


Initialize Transporter 


Get Transporter number 


Echo to specified Transporter 


Write to Transporter memory 


Functions defined in ccOMNio are: 



Description 

Peat! from transporter memory 



ccOMNio In it Pr o c p tl ur e 

ccOMNioInit initializes the ccOMNio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called I lit definition of this procedure is: 

PUQCFDURf c cOMNi o Ini t; 

An example of this procedure is: 

ccUMNi olnit; 
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OCsndMesg Procedure 

OCsndMesg sends a message to the specified host and socket. The 
definition of this procedure is: 

PROCEDURE OCsndMesg (pMesgBuf: pBytes; pRsltBuf: pOCrsltRcd; 

ScktNbr> DtaLen< HdrLen< DstHost: integer); 


! Parameter j Data Type ! Description ! 

! pMesgBuf ! pBytes ! Send data buffer 1 

+ + h + 

! pRs ItRcd i pOCrsltRcd ! Result record buffer ! 

+ + + + 

i ScktNbr ! integer ! Dcstinat i mri-et number in ! 

: ! • •• - . i to 4 : 

! ! : 1 sockets $00. . *B0> ! 


! Dtal.r-n ! integer ! Send data buffer length 

+ + + + 

! HdrL en ! integer I User control data length ! 

+ + + + 

! DstHost ! integer ! Destination host number ! 

+ + 4 + 


!!■-: procedure attempts to send a message to the destination host. 
At!;c-T executing the procedure the Rcode field of the specified 
result buffer contains a one byte signed equivalent of the 
command result. Valid command results are: 


! Identifier ! Value ! 

: : o. . 127 : 

I I I 

I < I 

i GaveUp ! 128 i 


I TooLong ! 129 I 

• I > 

I I » 


! NoSock t ! 180 ! 

• i i 

i * > 

+ + + 


Description f 

Successful operation (retries) ! 

Rcode = O. . 127 ! 


Aborted a send command after ! 

MaxRe tries tries ! 

Rcode = —129 ! 


Last message sent was too long for ! 
the receiver ! 

Rcode = -127 1 


Sent to an uninitialized socket I 

Rcode = -126 ! 


(continued on next page) 
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! Identifier ! Value ! Description 

HdrErr 131 ! Sender's header length did not 

! ! match receiver's header length 

! ! Rcode = 


BadSock ! 13? ! Invalid socket number 

! ! Rcode = 


BadDest- ! 134 ! Sent to an invalid host number 

! ! R c o d e = 



An example of this procedure is: 

var Sbuff: array Cl. . 5123 of byte; 
Sts It OCr slt-Rcd; 


{ send message buffer > 
•C send result buffer > 


CJCsndNesg (eSbuff. @Srslt, 1, 512, 0, 63); 

< send to host 63, socket 1 > 

]f Rrslt. Rcode >- 0 then .... < mesg send successfully > 

else ... . f error processing > 
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OCsetRecv Procedure -- 


OCsetRecv prepares the specified socket to receive a single 
message. The definition of this procedure is: 

PROCEDURE OCsetRecv (pMesgBuf: pBytes; pRsltBuf: pOCrsltRcd; 

ScktNbr, DtaLen< HdrLen: integer); 


I Parameter- ! Data type ! Description 

! pMesgBuf ! pBytes ! Receive data buffer 

+ + 

! pRsltRcd ! pOCrsltRcd ! Result record buffer 

+ + + 

! ScktNbr I integer ! Receive socket number in the 


! ! ! range of 1 to ^ 

I ! ! (1./. A - sockets *80. *BO> 

+ + + __^_. 7V C 

! DtaLen i integer ! -Se-mt" d a t a buffer length 

+ + + 

I HdrLen ! integer I User control data length 

+ + + 




+ 


+ 


+ 


+ 


The procedure activates the socket to receive a message. After 
executing the procedure the Rcode field of the specified result 
buffer contains a one byte signed equivalent of the command 
result Valid command results are. 


t 


+ 


Identifier ! 


H -*■ 

! B a d S ci c k ! 

! ! 

+ f- 

I Inuse ! 


! CmdAcpt 
« 

I 

+ 


Value ! Description ! 


O 


1 38 


133 


2 tig 


! Successful operation ! 

i Rcode = 0 1 


! Invalid socket numbpr ! 

! Rcode - -184 ! 


1 Tried to set up a receive on an 
! active socket 

! Rcode = -183 


! Command accepted 

I 

+ 


Rcode = -2 ! 
+ 


If the command is accepted successfully! the Rcode field retains 
the value CmdAcpt until a message is received for the socket. 
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An example of this procedure is: 

var Rbuff: array Cl. . 5123 of byte; { recv message buffer > 

Rrslt: OCrsltRcd; i. recv result buffer > 

OCsetRecv < ©R b u f f , @Rr s 1 t , 1, 512, 0); 

{ set receive on socket 1 > 

while Rrslt. Rcode = CmdAcpt do; -C wait' until mesg received > 

if Rrslt. Rcode = 0 then .... < mesg received successfully > 

else ... -terror processing > 


OCendRecv Procedure 

QCendRecv releases the specified socket number. The definition 
of this procedure is: 

PROCEDURE OCendRecv (BcktNbr: integer); 

! Parameter ! Data Type ! Description 

! BcktNbr ! integer ! Receive socket number in the 

! I ! range of 1 to 4 

i I ! < 1. . 4 sockets *00. . *B0) 

-i + + 

The procedure disables reception of any more messages for the 
socket until another OCsetRecv command is issued. After 
executing the procedure OCresult contains the command result. 
Valid command results are 

1 Identifier 1 Value 1 Description 

1 OkCode ! O 1 Buccessful operation 

■+• + + 

! BadSock ! 130 ! Invalid socket number specified 

+ + + 

An example of this procedure is: 

OCendRecv (1); < end receiving on socket 1 <*80) > 

if OCresult O O then ... < command error > 
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QCinitTrans Procedure 

OCinitTrans initializes the Transporter as in a hardware reset or 
a power-up. The definition of this procedure is: 

PROCEDURE OCinitTrans; 

The procedure sets all parameters to their default values. Event 
counters are set to zero. After executing the procedure OCresult 
contains the Transporter number of the host computer. 

An example of this procedure is: 

var TransNbr: integer; 

OC i n i tTran s ; 

TransNbr := OCresult < save Transporter number > 


OCwhoAmI Procedure 

OCwhoAmI returns the Transporter number of the host computer. 
The definition of this procedure is: 

PROCEDURE OCwhoAmI; 

After executing the procedure OCresult contains the Transporter 
number of the host computer. 

An example of this procedure is: 

UCwh oAml ; 

writeln ('The host Transporter number is '< CICresult: 2); 
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OCechoTrans Procedure 

OCechoTrans requests the Transporter to send an echo packet to 
the specified host, The echo packet is used to verify the 
presence of another network device without disturbing that 
device. The definition of this procedure is: 

PROCEDURE OCechoTrans (DstHost: integer); 

! Parameter j Data Type ! Description 

! DstHost ! integer ! Destination host number 

+ + + 

The procedure sends an echo packet to Transporter DstHost. 
Transporter DstHost receives the packet and acknowledges without 
informing the attached host computer. After executing the 
procedure OCresult contains the command result. Valid command 
results are: 

! Identifier : Value ! Description 

! GaveUp ! 128 I Aborted a send command after 

! ! I MaxRetries tries 

+ h + 

! BadDest ! 134 ! Sent to an invalid host number 

+ + + 

I Echoed ! 192 ! Echo command was successful 

+ + h 

An example of this procedure is: 

OCechoTrans (1); -t is Transporter 1 active? > 

if OCresult = Echoed then ... < Transporter responded > 

else ... -C Transporter did not respond > 
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OCpeekTrans Function 

OCpeekTrans is used to examine internal memory of the 
Transporter. See the "Omninet Programmer's Guide" for more 
information on the Transporter peek command. The definition of 
this function is: 

FUNCTION OCpeekTrans (Addr: integer): byte; 

! Parameter I Data Type ! Description 

! Addr ! integer ! Transporter memory address 

+ + + 

The function returns a byte of data from location Addr in the 
internal memory of the Transporter. 

An example of this function is: 

var tbyte: byte; 

tbyte := OCpeekTrans ($OOEl); L get number of retries > 



OCpokeTrans Procedure 

GCpokeTrans is used to alter internal memory of the Transporter. 
See the "Omninet Programmer's Guide" for more information on the 
Transporter poke command. The definition of this procedure is: 

PROCEDURE OCpokeTrans (Addr: integer; Value: byte); 


! Parameter ! Data Type 

! Addr ! integer 

+ + 

! Value ! byte 

i I 

4 4 


fBBnEaSSUS«BCBS»SSESBSIEIBS3IBf 

I Description ! 

! Transporter memory address ! 


! Data byte to move to the ! 

! Transporter memory ! 

+ ■ + 


The function moves the byte of Value to location Addr in the 
internal memory of the Transporter. 

An example of this procedure is: 

OCpokeTrans ($00E1<10); L set number of retries > 
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The Omninet Transporter Interface Unit 
ccOTCio 


The Omninet Transporter Interface Unit is used to interface with 
the Corvus Omninet local area network. This unit functionally 
replaces unit ccOMNio. 

This document does not define the various Omninet operations# but 
details the use of the unit functions and procedures available 
for interacting with the Omninet network. See the "Omninet 
Programmer's Guide" for a detailed description of the Omninet 
operations. 

The ccOTCio unit USES no other units. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB> ccOTCio; 

If the Omninet Transporter driver is not loaded# the Transporter 
is used directly and no interrupt processing is performed. This 
is similar to the processing in unit ccOMNio. Currently# the 
Omninet Transporter driver is automatical ly loaded during system 
initialization on 512k systems. 
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ccOTCio Unit Constants 

Constants defined in ccOTCio are: 


Omninet Transporter Driver Return Codes 


Identifier 

Value 1 

Description 

TCnotRdy 

! 21 ! 

Transporter not ready 

TCqueued 

■EB 

Command queued warning 

TCentUse 

WEM 

Entry in use error 

TCinvFnc 

! 56 ! 

Invalid function code error 


Transporter Return Codes 


1 Identifier 

hSBBBBBBH 

Value 

hS&BSSSBBSSBBSBSSBSSSSSSSSSSSSBCSSeSSBS + 

Description ! 

! OkCode 

0 

Successful operation ! 

! GaveUp 

l 

1 

128 

Aborted a send command after ! 

maximum retries ! 

! TooLong 

1 

l 

129 

Last message sent was too long for i 

the receive! 1 ! 

! NoSockt 

130 

Sent to an uninitialized socket ! 



! BadDest ! 134 ! Sent to an invalid host number 


(continued on next page) 
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Transporter Return Codes (continued) 



Identifier 
Echoed 
Cmd Ac p t 


! Value 



Description 

Echo command was successful 
Command accepted 


NoTrans 


255 ! Unable to communicate with 

! Transporter 


Index into Transporter Counters 



Description 


Missed packets. Number of ADLC 
address present interrupts 

Number of collision AVOIDANCE 
interrupts 

Number of unknown interrupts inside 
Transporter 

Number of ADLC receive errors 
(CRC< overrun/ etc. > 

Number of Transporter counters 


Miscellaneous Values 



Identifier 
TCver s 
TCvr s64 
TCvr s8A 


Value ! Description 



Unit version 

number 

string 

Transporter 

versi on 

$64 number 

Transp orter 

ver s i on 

$8A number 
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ccOTCio Unit Types 

Data types defined in ccOTCio are: 


i Data Type ! Description ! 

•fESaSSS = SZ3SS<fSSS8SSSSSBBCSSSSSS&&S 

I pTCbuffer i Omninet data buffer pointer 


SSrBSSaESBSKSSBCBBXSBaSB-f' 


TCbuffer i 

Omninet 

data buffer 

I array CO. . 

327653 

of -128. . 127; 

pTCrsltRcd I 

Result 

record pointer 

TCrsltRcd ! 

Result 

record 


Rc ode: byte; 
Sourc: byte; 

Len : 

UCdta: array CO. 


-C command result code > 
■C source host number > 
integer; < received data length > 
2553 of -128. . 127; 
user control data > 


pTComn iCmd 

- + - 

\ 

Omninet 

command 

record pointer 

TComniCmd 

1 

1 

- + - 

Omninet 

command 

record 


case integer of 
1: (p: record 


RP 

DP 

LN 

HL 


pTCrsltRcd; 
pTCbuffer; 
integer; 
integer; 


■C result record pointer > 
< data buffer pointer > 
■C data length > 
{ header length > 


1 

1 

! 2: (a: 

end ) ; 

array Cl.. 

123 of -128. . 127); 

pTCparmE 1 k 

! Request 

parameter block record pointer 

TCparmBl k 

! Request 
~ + 

parameter block record 


pComd: pTComniCmd; -C 
pProc: pTCbuffer; -C 
pPblk: pTCparmBlk; < 
pBuff. pTCbuffer; < 
pRslt: pTCrsltRcd; -C 
oComd: TComniCmd; < 
rDone: boolean; < 

rStat: integer; { 

rRslt: integer; -C 


Omninet command pointer unit > 
interrupt procedure ptr user > 
parameter block pointer unit > 
data buffer pointer user > 
result record pointer user > 
Omninet command unit > 
request complete if TRUE intr > 
request status intr > 
request result code intr > 
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! Data Type ! Description ! 

■fB = = = SSrS=SBs4-SSS = = = SSSCS = S3 = XSSKSBB8KBXaBaiD!BBH«naBBCa = S;3SK-i- 

! TChosts I Valid Omninet host numbers ! 

+ — + + + 

! O. . 63; 

+ — + + + 

! TChostSet i Set of Omninet host numbers ! 

+ — + + + 

! set of TChosts; ! 

+ — '+ + + 

' TCcntBuf ! Transporter counters buffer ! 

+ — + + + 

! array Cl. . TCCmaxCntl of longint; ! 

+ + 


ccOTCio Unit Variables 

Variables defined in ccOTCio are: 

i Variable ! Data Type ! Description ! 


! TCtrnVrsn ! integer I Transporter version number ! 


TChaveDrv ! 

boolean 

1 

1 

TRUE if using Omninet driver 

TC counts ! 

TCcntBuf 

1 

1 

Transporter counters 

TCadlc ! 

integer 

1 

I 

Status of ADLC at last recv error 
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ccOTCio Unit Functions and Procedures 
Procedures defined in ccOTCio are: 



Procedure 
ccOTCioInit 
ccOTCioTerm 
TCinitBlk 
TC interr up t 


' TCgetCounts 



Functions defined in ccOTCio are: 

4- = = = = SS3:rE = EX3BSBSB:BCSESCBSKSBSSBSrcaBSSSXSaS = Zr=SSX = CC = = SE:S + 

! Function I Description ! 

+ = C = = = 3 = == = = SS4< = £CESBB = BEaaSBKflESBeamBCBBBBBBBKBSEBBDSaBB = = =4' 

! TCsetRecv | Set up receive ! 


! TCsndMesg 

Send message i 

! TCendRecv 

End receive ! 

! TCiuhoAml 

Get Transporter number ! 

! TCechoTrans 

Echo to specified Transporter ! 

! TCpeekTrans 

Read from Transporter memory ! 

! TCpokeTrans 

Write to Transporter memory ! 

! TCsetRetry 

Set Transporter retry count ! 

! TCnetMap 

Get set of active Transporter numbers ! 


September 1. 19B3 


Copyright 1983 Corvus Systems< Inc. 




























Corvus Concept Pascal System Library 
Omninet Transporter Interface Unit 


ccOTC i o 
Page 10-7 


ccOTCioInit Procedure 

ccOTCioInit initializes the ccOTCio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccOTC iolniti 

The procedure performs the following: 

* Determines if the Omninet Transporter driver is loaded 

* Sets unit Omninet event counters to 0 

* Gets the Transporter version number 

An example of this procedure is: 
ccOTCioIniti 


ccOTCioTerm Procedure 

ccOTCioTerm terminates the ccOTCio unit. This procedure is 
called prior to program termination. The definition of this 
procedure is: 

PROCEDURE ccOTCioTerm; 

The procedure cancels all outstanding receives set by the current 
program. An example of this procedure is: 

ccOTCioTerm; 
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TCgetCounts Procedure 

TCgetCounts updates the Transporter counters maintained in this 
unit and resets the internal Transporter counters. The 
definition of this procedure is: 

PROCEDURE TCgetCounts; 

Counters maintained in array TCcounts are updated with current 
Transporter values. TCcounts is defined in the global variable 
section of this unit. Offsets within TCcounts are: 



An example of this procedure is: 

TCgetCounts; 

writeln ('TCCmiss = ' . TCc ount s CTCCmi s s 3 : 1 ) ; 
writeln ('TCCcoll = ' , TCc oun t s E TCCc o 1 1 3 : 1 > ; 
writeln ('TCCintErr = ' . TCc ount s CTCC intErr 3 : 1 ) ; 
writeln ( 'TCCrcvErr = TCc ount s CTCCrc vErr D : 1 ) ; 
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TCinitBlk Procedure 

TCinitBlk initializes the specified request parameter block with 
default values. The definition of this procedure is: 

PROCEDURE TCinitBlk (var ReqBlk: TCparmBlk; 

pResRcd: pTCrsltRcd. 
pDtaRcd: pTCbuffer; 
plntPro: pTCbuffer); 




Parameter 

l 

1 

Data Type 

1 

Descr i p t i on 

ReqBlk 

1 

1 

TCparmB 1 k 

1 

Request parameter block 

pResRcd 

1 

1 

pTCr s 1 tRcd 

1 

1 

Result record pointer 

pDtaRcd 

l 

1 

p TCb uf f er 

1 

1 

Data buffer pointer 

p IntPr o 

1 

1 

pTCbuffer 

< 

1 

+- 

Interrupt processing pointer 


The procedure initializes the specified request parameter block 
as follows: 


! TCparmBlk 

1 

1 

Request parameter block record 

+ 

1 

1 

1 

1 

pComd 

1 

1 

Pointer to oComd in this record 

1 

( 

1 

• 

pPr oc 

< 

1 

Specified interrupt processing pointer 

1 

1 

1 

1 

pPblk 

1 

1 

Specified request parameter block pointer 

1 

1 

< 

I 

pBuff 

1 

1 

Specified data buffer pointer 

1 

1 

1 

1 

pRslt 

1 

1 

Specified result record pointer 

1 

1 

1 

oComd 

1 

1 

Omninet command (12 bytes of 0) 

l 

1 

( 

1 

rDone 

1 

1 

FALSE 

1 

1 

t 

< 

rStat 

I 

t 

0 

l 

t 

1 

+ - 

rRs It 

1 

1 

255 (*FF> 

1 

1 

+ 
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An example of this procedure is: 

var pblk: TCparmBlk; 
rslt: TCrsltRcdi 

buff: array Cl.. 5123 of -128. . 127; 

Dsta: integer; 

TCinitBlk <pblk, ©rslt> ©buff. ©TCinterrupt ) ; 

■C init pare block > 

Dsta : = TCsetRecv (pblk, 1, 512, 0); -C set recv on $80 > 

if Dsta O 0 then .... -C Transporter driver error > 
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TCinterrupt Procedure 

TCinterrupt updates the request parameter block with request 
completion information. The definition of this procedure is: 

PROCEDURE TCinterrupt (QueFlg: integer; 

DrvSta: integer; 
pResRcd: pTCrsltRcd; 
pDtaRcd: pTCbuffer; 
pReqBlk: pTCparmBlk); 




= = =e=s = = + 


4- 


+ 


Parameter ! Data Type ! Description 


QueFlg 

! integer 

= = + = 

1 

1 

Request queued flag 

r:as=;sarss = zr + 

i 

DrvSta 

! integer 

1 

1 

Driver status 

i 

i 

pResRcd 

i pTCrsltRcd 

1 

1 

Result record pointer 

1 

i 

pDtaRcd 

! pTCbuffer 

! 

Data buffer pointer 

i 

i 

pReqBlk 

! pTCparmBlk 

i 

i 

— +- 

Request parameter block 

pointer ! 
+ 


The procedure sets the following fields in the request parameter 
block when a request is complete (QueFlg = 0) or when a request 
is terminated with an error (DrvSta <> 0): 


! TCparmBlk 

1 

1 

Request parameter block record (partial) 

+ 

i 

t 

! rDone 


TRUE 

l 

l 

i rStat 

1 

Returned driver status 

i 

l 

! rRslt 
+ 

1 

-4-- 

Result code from Omninet result record 

l 

l 

+ 


This procedure is used by this unit for all functions except 
TCsndhesg and TCsetRecv. TCinterrupt may also be used for simple 
TCsndMesg and TCsetRecv completion processing. 
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TCsetRecv Function 

TCsetRecv prepares the specified socket to receive a single 
message. The definition of this function is. 

FUNCTION TCsetRecv (var ReqBlk: TCparmBlk; 

ScktNbr< DtaLen. HdrLen: integer): integer; 


Parameter I Data Type 


Descr i p t i on 




ReqB 1 k 

l 

l 

TCparmB 1 k 

1 

Request parameter block 

Sc k tNbr 

( 

1 

I 

I 

1 

1 

integer 

l 

1 

1 

1 

f 

1 

Receive socket number in the 
range of 1 to 4 
< 1. . 4 = sockets *80. . *B0> 

DtaLen 

< 

integer 

i 

1 

\L$C-\/v 

-&em)’data buffer length 

HdrLen 

1 

1 

+ - 

integer 

1 

1 

+- 

User control data length 


The function result is the Transporter driver request status. 
After executing the function! the rRslt field of the specified 
request parameter block contains the Omninet command result. 
Valid command results are: 


Identifier 

1 

1 

Value 

1 

1 

Description 


I 

l 

0 

1 

Successful operation 

BadSoc k 

1 

1 

132 

1 

1 

Invalid socket number 

Inuse 

1 

1 

l 

133 

1 

1 

1 

1 

Tried to set up a receive on an 
active socket 

CmdAc p t 

1 

1 

— 4— 

254 

1 

1 

- + ■ 

Command accepted 


If the command is successful! the rRslt field of the specified 
request parameter block contains the the value CmdAcpt until a 
message is received for the socket. 

If the rRslt field contains CmdAcpti the rDone field is FALSE! 
otherwise! rDone is TRUE. 

The rDone field of the request parameter block is set to TRUE 
when a message is received for the socket. 
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The user's interrupt procedure is responsible for updating the 
following fields in the request parameter block: 


+ + + 

! TCparmBlk ! Request parameter block record (partial) ! 

+ — + + + 

! rDone ! TRUE ! 

+ + + 

! rStat ! Returned driver status ! 

+ + + 

! rRslt | Result code from Omninet result record ! 

+ + + 


If only these fields need to be updated in the interrupt 
procedure/ the TCinterrupt procedure in this unit may be used as 
the user's interrupt procedure. 

An example of this function is: 

var pblk: TCparmBlk; 

Rbuff: array Cl. . 5121 of -128. . 127; < recv message buffer > 
Rrslt: TCrsltRcd; -C recv result buffer > 

Dsta: integer; 


TCinitBlk (pblk / ©Rrslt / ©Rbuff/ ©TCinterrupt); 

Dsta := TCsetRec v ( p b 1 k , 1 , 512, O ) ; 

•C set receive on socket 1 > 

if Dsta O 0 then .... < Transporter driver error > 

while NOT pblk. rDone do; < wait until mesg received > 

if pblk.rRslt < 127 then .... -C mesg received successfully > 

else .... < error processing > 
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TCsndMesg Function 

TCsndMesg sends a message to the specified host and socket. The 
definition of this function is: 

FUNCTION TCsndMesg <var ReqBlk: TCparmBlk; 

ScktNbr. DtaLen. HdrLen. 

DestHost: integer): integer; 

! Parameter ! Data Type I Description 

•fssaasssrass+rsssBSSBSsssBsH’SsssHrcaasaBBSEXESsrsESssssssss 


! ReqBlk ! TCparmBlk ! Request parameter block 


I ScktNbr ! integer ! Destination socket number in 

I ! ! the range of 1 to 4 

! ! ! < 1. . 4 = sockets *60. . *B0) 

+ + + 

! DtaLen ! integer ! Send data buffer length 

+ + + 

! HdrLen ! integer ! User control data length 


+ + + 

! DestHost ! integer i Destination host number 


+ + 


The function result is the Transporter driver request status. If 
the interrupt procedure pointer in the request parameter block 
(ReqBlk. pProc ) is NIL. the function waits for command completion 
before returning. After executing the function and waiting for 
command completion, the rRslt field of the specified request 
parameter block contains the Omninet command result. Valid 


command results 

are : 



1 

1 

Identifier 

! Value 

1 

1 

Description 

1 

1 


! 0. 127 

1 

Successful operation (retries) 

1 

1 

1 

« 

GaveUp 

! 128 

1 

1 

1 

1 

1 

1 

Aborted a send command after 
maximum retries 

1 

1 

1 

1 

TooLong 

: 129 

1 

1 

1 

1 

1 

Last message sent was too long for 
the receiver 

1 

1 

+ - 

NoSock t 

! 130 

~ + 

- + • 

Sent to an uninitialized socket 


(continued on next page) 
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The user's interrupt procedure is responsible for updating the 
following fields in the request parameter block: 


! TCparmBlk ! Request parameter block record (partial) 


1 

• 

rDone 

! TRUE 

1 

rStat 

! Returned driver status 

1 

+- 

rRslt 

! Result code from Omninet result record 


If only these fields need to be updated in the interrupt 
procedure/ the TCinterrupt procedure in this unit mag be used as 
the user's interrupt procedure. 

An example of this function is: 

var pblk: TCparmBlk; 

Sbuff: array Cl. . 5121 of -128. . 127; < send message buffer > 
Srslt: TCrsltRcd; < send result buffer > 

Dsta: integer; 

TCinitBlk (pblk / ©Sr s 1 t , ©Sbuff, ©TCinterrupt); 

Dsta := TCsndMesg ( p b 1 k / 1 / 5 12/ 0/ 63 > ; 

-C send to host 63/ socket 1 > 

if Dsta O 0 then .... -C Transporter driver error > 

while NOT pblk.rDone do; -C wait until mesg sent > 

if pblk. rRslt = 0 then .... -C mesg sent successfully > 

else .... T error processing > 

.... or ... . 

TCinitBlk (pblk, ©Srslt, ©Sbuff, NIL); 

Dsta := TCsndMesg ( p b 1 k , 1 , 5 1 2, 0, 63 ) , 

< send to host 63, socket 1 > 

if Dsta <> 0 then .... -C Transporter driver error > 

if pblk. rRslt = O then .... -C mesg sent successfully > 

else .... -C error processing > 
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TCendRecv Function 

TCendRecv disables reception of any more messages for the 
specified socket until another TCsetRecv command is issued for 
the socket. The definition of this function is: 

FUNCTION TCendRecv (ScktNbr: integer; 

var CmdRslt: integer): integer; 


Parameter 

Data Type 

Description 

Sc k tNbr 

integer 

Receive socket number in the 
range of 1 to 4 
( 1. . 4 = sockets *80. . *B0> 

CmdRs 1 t 

integer 

Omninet command result 


The function result is the Transporter driver request status. 
After executing the function# CmdRslt contains the Omninet 
command result. Valid command results are: 


Identifier ! Value ! Description 


+ = s s s s s ss sss= sr 

! OkCode 

= =e + = 

i 

i 

i 

i 

i 

O 1 
i 
i 

— + 
n 

Successful operation 

i Bad Sock 
+ 

i 

» 

h- 

132 ! 

Invalid socket number specified 


An example of this function is: 
var Dsta,Osta: integer; 

Dsta := TCendRecv (1, status); < end receiving on socket 1 > 
if Dsta O O then .... < Transporter driver error > 
if Osta O 0 then .... < Omninet command error > 
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TCwhoAmI Function 

TCwhoAmI returns the Transporter number of the host computer. 
The definition of this function is: 

FUNCTION TCwhoAmI (var HostNmbr: integer): integer; 


Parameter ! 

Data Type 

fESSSBaKSSKBBCaBSBaSBESCSXBaccaCSS 

i Description 

HostNmbr ! 

integer 

! Host Transporter number 


+ 

< 

l 

+ 

i 

+ 


The function result is the Transporter driver request status. 
After executing the function# HostNmbr contains the Transporter 
number of the host computer. 

An example of this function is: 

var Dsta. TransNbr : integer; 

Dsta := TCwhoAmI (TransNbr); 

if Dsta O O then .... < Transporter driver error > 

writeln ('Our Transporter number is TransNbr: 1 ); 
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TCechoTrans Function 

TCechoTrans requests the Transporter to send an echo packet to 
the specified host. The echo packet is used to verify the 
presence of another network device without disturbing that 
device. The definition of this function is: 

FUNCTION TCechoTrans (DestHost: integer; 

var CmdRslt: integer): integer; 


Data Type ! Description 


! Parameter 
! DestHost I integer ! 


Destination host number 


! CmdRslt ! integer 


Omninet command result 


The function result is the Transporter driver request status. 

The function sends an echo packet to Transporter DestHost. 
Transporter DestHost receives the packet and acknowledges without 
informing the attached host computer. After executing the 
function, CmdRslt contains the Omninet command result. Valid 
command results are: 


! Identifier ! Value ! Description 


GaveUp 

sas-t-as 

i 

i 

i 

i 

EasSSB 

128 

B + l 

1 

I 

1 

Aborted a send command after 
maximum retries 

BadDest 

H 



Sent to an invalid host number 

Echoed 

H 


1 

Echo command was successful 


An example of this function is: 


var Dsta,Osta: integer; 

Dsta := TCechoTrans (l,Osta>; -C 

if Dsta O O then .... -C 

if Osta = Echoed then .... -C 

else.... < 


is Transporter 1 active? > 
Transporter driver error > 
Transporter responded > 
Transporter did not respond > 
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TCpeekTrans Function 

TCpeekTrans is used to examine internal memory of the 
Transporter. See the "Omninet Programmer's Guide" for more 
information on the Transporter peek command. The definition of 
this function is: 

FUNCTION TCpeekTrans (Addr: integer; 

var Value: integer): integer; 


1 Parameter 

i Data Type 

1 Addr 

! integer 

! Value 

• 

1 

+ 

! integer 

1 

t 

- + 


{Description ! 

! Transporter memory address ! 

+ + 

! Data byte value moved from ! 

! Transporter memory ! 

+ + 


The function result is the Transporter driver request status. 

The function returns the unsigned byte value of data from 
location Addr in the internal memory of the Transporter. 

An example of this function is: 

var Dsta<Tvalue: integer; 

Dsta := TCpeekTrans ( $E1 ( Tval ue ) ; { get nmbr of retries > 

if Dsta <> 0 then .... -C Transporter driver error > 
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TCpokeTrans Function 

TCpokeTrans is used to alter internal memory of the Transporter. 
See the "Qmninet Programmer's Guide" for more information on the 
Transporter poke command. The definition of this function is: 

FUNCTION TCpokeTrans <Addri Value: integer; 

var CmdRslt: integer): integer; 

i Parameter ! Data Type ! Description ! 

‘ Addr I integer ! Transporter memory address ! 

+ + + + 

! Value i integer ! Data byte value to move to ! 

I I i Transporter memory I 


i CmdRslt i integer 
+ + 


Qmninet command result 


The function result is the Transporter driver request status. 

The function moves the unsigned byte value of data to location 
Addr in the internal memory of the Transporter. 

An example of this function is: 

var Dsta.Qsta: integer; 

Dsta := TCpokeTrans < $E1 . 10. Os ta > ; -C set nmbr of retries > 

if Dsta <> 0 then ... < Transporter driver error > 

if Osta O 0 then .... < Qmninet command error > 
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TCsetRetry Function 

TCsetRetry is used to set the number of Transporter retries. The 
definition of this function is: 

FUNCTION TCsetRetry (Retries: integer): integer; 



Data Type ! Description ! 

integer ! Number of Transporter retries ! 

+ + 


The function result is the Transporter driver request status. 

The function sets the specified number of retries into the 
internal memory of the Transporter. 

An example of this function is: 

var Dsta: integer; 

Dsta := TCsetRetry (3); -C set number of retries to 3 > 

if Dsta <> 0 then .... -C Transporter driver error > 


Copyright 1983 Corvus Systems. Inc. 


September 1. 1983 



ccOTCio 
Page 10-22 


Corvus Concept Pascal System Library 
□mninet Transporter Interface Unit 


TCnetMap Function 

TCnetMap is used to define a set of active network hosts. The 
definition of this function is: 

FUNCTION TCnetMap <var NetMap: TChostSet)i integer; 

4- s a as s b :s SB « at sc s + s s k b b ae s s a k w ae SB k + as seas as « ■ oe « as k flB n h a a: sb as s ae s sb a: s ■: s: k s s s ss ss sr + 

! Parameter I Data Type ! Description ! 

! NetMap ! TChostSet I Set of active host numbers ! 

+ + + + 

The function result is the Transporter driver request status. 

An example of this function is: 

var Dsta< tn: integer; map: TChostSet; 

Dsta := TCnetMap (map); 

if Dsta <> O then .... < Transporter driver error > 

for tn : = 0 to 63 do begin 
if tn in map then 

writeln ( ' Transporter tn: 1. ' is active'); 

end; 

writeln; 
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Omninet Transporter Unit Example Program 

The following simple program illustrates using the Omninet 
Transporter driver unit. 


program ot; 

uses <*u /c c ut i 1 /c c 1 i b > ccDEFN/ ccCRTio< ccOTCio; 

procedure RunTest; 

var i, r# tn: integer; 
map: TChostSet; 

tcp. TCparmBlk; 
rslt: TCrsltRcd; 

buff: array Cl.. 5123 of -128. . 127; 
beg in 

writeln; writeln ('TChaveDrv = TChaveDrv ) ; 

writeln ( 'TCtrnVrsn = 'z TCtrnVrsn: 1 > ; writeln; 

writeln ( 'TCwhoAmI test'); 
r : = TCwh oAml ( i ) ; 

writeln ( ' result* Sr: 1, ' transporter numb er = ' , i : 1 ) ; 
writeln; 

writeln ( 'TCechoTrans test'); 
for tn : =■ 0 to 63 do begin 
r := TCechoTrans (tn/ i>; 
if <r O 0) or <i = echoed) then 
writeln (' result = '/r:li 

' transporter number = '<tn:l>< 

end ; 
writeln; 

writeln ( 'TCnetMap test (TCpokeTrans & TCsetRetry ) ' ) ; 
r := TCnetMap (map); 
writeln(' result ='»r:l)* 
for tn := 0 to 63 do begin 
if tn in map then 

writeln (' transporter number = '/ tn: 1 ); 

end; 

writeln; 

writeln ('TCsetRetry test (TCpeekTrans & TCpokeTrans)'); 
r := TCsetRetry (1); 
writeln (' result = '/r:l>; 
r := TCpeekTrans <$El/i>; 

writeln (' result = '/r:l/' retries = '/i:l); 
r := TCsetRetry (10); 
writeln (' result = ' ( r:l); 
r .= TCpeekTrans ($Elzi); 
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uiriteln < ' result = '»r:l/' retries = ' , i : 1 ) ; 
uiriteln; 

uiriteln ( 'TCg etCounts test (TCpeekTrans it TCpokeTrans ) ' ) ; 
TCgetCounts; 

uiriteln (' TCCmiss = ' . TCc ount s CTCCmi s s 3 : 1 ) ; 

uiriteln (' TCCcoll = '» TCc oun ts CTCCc o 1 1 3 : 1) ; 

uiriteln (' TCCintErr = ', TCc ounts CTCC intErr 3 : 1 ) ; 

uiriteln (' TCCrcvErr = ' , TCc oun t s CTCCr c vErr 3 : 1 ) ; 

uiriteln ( ' TCadlc = '.TCadlcrl); 
uiriteln! 

uiriteln ( 'TCsetRecv test'll 
for i :■ O to 5 do begin 

TCinitBlk (tcp, firslt. Sbuff, NIL); 
r := TCsetRecv (tcp. i. 512. 0>; 
uiriteln (' result = ',r:l. 

' socket = '. i : 1 . 

' transporter result = ' . t c p . rRs 1 t : 1 > ; 

end ! 

for i 4 douinto 1 do begin 

TCinitBlk (tcp, Grslt, @buff, NIL); 
r := TCsetRecv (tcp, i, 512, 0); 
uiriteln (' result = '.r:l, 

' socket = ' , i : 1 , 

' transporter result “ ' , t c p . rR s 1 1 . 1 ) i 

end; 
uir i te lm 

uiriteln ( 'TCendRecv test'); 
for i := 0 to 5 do begin 

r : = TCendRecv (i. tn); 
uiriteln (' result * ' ,r: 1, 

' soc ket = ', i : 1, 

' transporter result = ',tn:l>; 

end; 

for i := 4 douinto 1 do begin 
r : = TCendRecv (i, tn); 
uiriteln (' result * ',r: 1, 

' soc ket = ', i : 1, 

' transporter result = '.tn:l); 

end; 

uiriteln; 

end ; 


begin 

ccCRT iolnit; 

CrtAction (EraseALL); 

uiriteln ('ccOTCio unit test'); uiriteln; 
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ccOTCioIniti 

RunTesti 

ccOTCioTerm; 

end. 


The output generated by this program i s : 
ccOTCio unit test 


TChaveDrv = TRUE 
TCtrnVrsn = 100 

TCtuhoAml test 

result = O transporter number = 11 
TCechoTrans test 

result = O transporter number = 0 

TCnetMap test (TCpokeTrans & TCsetRetry) 
result = O 

transporter number = O 

TCsetRetry test (TCpeekTrans & TCpokeTrans) 
result = 0 

result = 0 retries = 1 
result = 0 

result = 0 retries = 10 

TCgetCounts test (TCpeekTrans & TCpokeTrans) 
TCCmiss = O 
TCCcoll = 0 
TCCintErr = O 
TCCrcvErr = O 
TCadlc » O 

TCsetRecv test 


r esu 1 1 

= 

0 

socket 

= 

0 

transporter 

result 

= 

255 

result 

= 

0 

socket 

S 

1 

transporter 

result 

=r 

254 

result 

= 

0 

socket 

5= 

2 

transporter 

result 

s 

254 

result 

ES 

0 

socket 

= 

3 

transporter 

result 

= 

254 

result 

= 

0 

socket 

= 

4 

transp or ter 

result 

= 

254 

result 

= 

0 

socket 

* 

5 

transporter 

result 

* 

255 

result 

= 

0 

socket 

s 

4 

transporter 

result 

= 

133 

result 

= 

0 

socket 

sz 

3 

transporter 

resu 1 t 

= 

133 

result 

= 

0 

socket 

= 

2 

transporter 

result 

ss 

133 

result 

= 

0 

socket 

SB 

1 

transporter 

result 

= 

133 


TCendRecv test 
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result = 0 socket = 0 transporter result = 132 

result = 0 socket = 1 transporter result *= O 

result « 0 socket = 2 transporter result = 0 

result - 0 socket = 3 transporter result = 0 

result = O socket = 4 transporter result = 0 

result = 0 socket = 5 transporter result = 132 

result = 0 socket = 4 transporter result = 0 

result = 0 socket = 3 transporter result = 0 

result = 0 socket = 2 transporter result = 0 

result = 0 socket = 1 transporter result = 0 
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Omninet Transporter Driver Background Information 

The following sections give a brief description of the Omninet 
Transporter driver. Topics discussed in the background 
information sections do not have to be understood in order to use 
the Transporter commands unit. 

The Transporter driver has three main functions: 

1. "strobe in" Transporter commands/ 

2. handle Transporter generated interrupts/ 

3. ensure only one command and one receive on each socket is 
attempted at the same time. 

Access to the driver is through the UnitStatus mechanism of the 
Corvus Concept Operating System. The Pascal defined UnitStatus 
call is: 

UnitStatus (UnitNmbr, ParmBlock/ FuncCode); 

where UnitNmbr is the unit number of the Omninet Transporter 
driver/ ParmBlock is the Omninet Transporter driver parameter 
block, and PuncCode is one of the valid function codes for the 
dr i ver . 
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ParmBlock has the form: 

record CommandPointer : pBytes; 

ProcedurePointer : pBytes; 

UserData: LongWord; 

end i 

where CommandPointer is a pointer to the Transporter Control 
Block to be "strobed" into the Transporter. ProcedurePointer is 
a pointer to the global level procedure the Transporter driver 
calls when the Transporter interrupt occurs UserData is a four 
byte (long word) data field which is user-defined. 

The CommandPointer must point to a valid Transporter Control 
Block above the address *80000. except for the "Clear Receive 
Socket" function in which case the pointer can be NIL. 

The ProcedurePointer must point to a valid user interrupt service 
routine or may be NIL. A NIL ProcedurePointer indicates NO user 
interrupt service routine to call when the operation is dequeued 
or complete. The interrupt service routine must accept five 
parameters: a dequeue flag, a status code, the result and buffer 
pointers from the Transporter Control Block, and the UserData 
parameter from the ParmBlock (see description in interrupt 
routine discussion). 

The dequeue flag is non-zero when the interrupt service routine 
is called for an operation start attempt. The dequeue operation 
start call to the interrupt service routine is made only if the 
Transporter Control Block was queued by the driver. The status 
code describes the IORESULT code for the operation start attempt 
If the status code is non-zero, the control block specified 
failed to be "strobed in. " 

The dequeue flag is zero when the interrupt routine is called 
after a complete operation. 

The user interrupt procedure interface is: 

Procedure Done (DequeFlag: integer. {dequeue flag > 

DrvStatus: integer; {driver status > 

ResultPtr: pBytes; {user may use any pointer. . > 

BufferPtr: pBytes; {. . type for these pointers > 

UserData: longint); {can be any long word type > 

Failure to comply with these rules results in catastrophic 
consequences. 
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The UserData parameter is available for any purpose the user 
determines. It is not examined or used for any purpose by the 
Transporter driver. It is returned to the user's interrupt 
service routine. For example, it may be a pointer to an 
operation control block, a transaction code, or an index into an 
array . 

The ccOTCio unit uses this field to point to a request parameter 
block which contains all information needed to process an Omninet 

Transporter command. 

The Omninet Transporter driver functions are: 

+ + -t- 

i O ! Current Command. ! 

+ + + 

! 1 ! Setup Receive Socket. The function code specifies! 

! 2 ! which socket, where 1 is socket $80, 2 is socket I 

! 3 ! $90 and so on. ! 

5 4 i 

+ + + 

! 129 ! Clear Receive Socket. The function code specifies! 

! 130 ! which socket, where 129 is socket $80, 130 is ! 

! 131 ! socket $90 and so on. ! 

! 132 ! 

+ + + 

Each of the functions use the same parameter block. If any other 

function codes are used, the driver returns a status code 
indicating the source of the error (see section on error and 
war n i ng codes). 
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Driver Functions 

The driver functions use an internal table to control the 
operations. This table has five entries, one for the Current 
Command and four for each of the receive sockets. 

The Current Command entry is used for send. peek. poke. init. 
echo, and other immediate Transporter commands sent to the driver 
via the Current Command function interface. 

The "Clear Receive Socket" function uses the Current Command 
entry if the command address is not NIL. This is used to send an 
"End Receive" command to the Transporter. 

The "Setup Receive Socket" function also uses the Current Command 
entry to transmit the "Setup Receive" command to the Transporter. 
It uses the receive socket entry if the command is successfully 
strobed into the Transporter. 

Each entry in the table can be in use for only one command at a 
time. The four receives sockets may each have only one receive 
pending at a time. If a "Setup Receive Socket" function is 
requested on a socket with a receive pending, an "In Use" status 
code is returned to the caller and the driver takes no action. 

The current command entry may have only one command pending on 
it. However, if a current command request is made while one is 
currently pending, the driver queues the new request if there is 
room in the queue. The driver returns a warning code if it 
queues a request (see error and warning code section). The 
"Setup Receive Socket" function does not setup the socket entry 
if the current command is queued. When the request is dequeued, 
the receive will be setup, if possible. The user's interrupt 
procedure is called with a non-zero dequeue flag. If the driver 
cannot setup the receive, the status parameter is non-zero 
defining the I/O error. Otherwise, the status parameter is zero, 
indicating no error on dequeue. 
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The "Setup Receive Socket" function does special processing on 
the result code of the current command if it is successfully 
transmitted to the Transporter. The function waits for a change 
of the result code instead of depending on the driver's interrupt 
service routine to release the current command entry. If the 
result code does not change within a certain time, the driver 
returns the "Transporter Not Ready” status code. It also clears 
both the current command and receive socket entries. However, if 
the Transporter changes the result code to an error state, the 
function does NOT release the socket entry. It assumes the 
receive is setup. Therefore, the caller must do a "Clear Receive 
Socket" function with the command address NIL to free up the 
receive socket entry. 

For the peek command, the Transporter returns the data as the 
result code. Since the driver determines which command and. 
therefore, which entry caused the interrupt by the result code, a 
peek response of *FF causes the driver to miss the interrupt for 
the peek completion. Consequently, the driver would not release 
the current command entry. To prevent this, the driver waits on 
the completion of the peek command. If the result code does not 
change within a certain time, the driver assumes the peek command 
returned an *FF and releases the current command entry. 
Unfortunately, this means a user should not wait on an "In Use" 
error response from the driver in an interrupt routine if it is 
possible that a peek command is pending in the current command 
entry. For this last case, if the peek response is *FF, the 
current command entry will not be released. 
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Interrupt Service Routine 

If the user specifies an interrupt service routine, this routine 
must be resident in memory the entire time the Transporter 
command is active. Furthermore, if the code is Pascal, the 
routine must be a global level procedure. A global level 
procedure is nested only under the MAIN level program. 

The interrupt service routine must support two types of 
processing. The first occurs when the dequeue flag is zero 
indicating the operation is complete. The interrupt service 
routine should do normal operation complete processing, which may 
entail calling the Transporter driver again to initiate another 
command. The second occurs when the dequeue flag is non-zero 
indicating a previously queued command has been dequeued and 
processed by the driver to start the Transporter operation. The 
interrupt service routine must check the status code parameter 
which describes any error condition found when initiating the 
command as it was removed from the queue. If the status code is 
zero, the set up was successful, otherwise, the set up failed. 

The status code is usually a "Transporter Not Ready" error. This 
indicates a good probability of a hardware malfunction with the 
Transporter. However, it can be the "In Use" error if the 
operation requested is a "Setup Receive Socket" function. If the 
setup succeeded, the interrupt service routine is called again 
when the operation is complete. If it failed, the interrupt 
service routine is NOT be called for an operation completion. 

Normally, the interrupt service routine is called after the 
command has been performed and the entry has been released. 

Prior to the interrupt service routine call, the driver restores 
the interrupt level to the state when the Transporter interrupt 
occurred. Upon return, the driver resets the interrupt level to 
disable Transporter interrupts. For the dequeue call, the 
command is not performed, the current command entry is not 
released, and the entry is not removed from the queue, therefore, 
the user's normal processing may cause problems. After the 
interrupt service routine returns from the dequeue call, the 
current command entry is released and the entry is removed from 
the queue. 
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The user's interrupt service routine must be very careful about 
reentrancy problems/ such as changing global variables from 
within the interrupt service routine or calling non-reentrant 
system functions. This interrupt service routine may call other 
procedures and functions within the user's program. It should 
not call the display or keyboard drivers because of timing and 
reentrancy problems. The driver's interrupt routine saves and 
restores IORESULTi a potential source of reentrancy problems in 
the system. This protects the user's interrupt routines which 
call the driver from damaging I/O error reporting from the system 
after the interrupt call is completed. 

The interrupt service routine is never called for a "Setup 
Receive Socket" function. This function forces the current 
command entry's procedure pointer to NIL when it calls the 
Current Command function. 
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Error and Warning Codes 

The following is a summary of the error and warning codes 
returned by the driver to the calling routine. 



Invalid I/O request error 

The driver returns this code if the command code is 
invalid. The command codes defined by the Concept 
OS are in the range of 0 to 6, inclusive. The 
driver supports only: 

Unitlnstall (command code = 0), 

UnitStatus (command code = 5), 

UnitUnmount (command code = 6). 

All other commands are invalid. 


21 ! Transporter not ready error ! 

+ 

i The driver returns this code if the Transporter fails! 

1 to respond ready in time when trying to "strobe in" ! 

! the command. The driver also responds with this code! 

! when it times out waiting for the "Setup Receive" ! 

! response from the Transporter. ! 


30 ! Queued request warning 


! The driver returns this code whenever it queues a 
! request. This can occur for "Current Command" and 
I "Setup Receive Socket" function calls. 


52 ! Entry in use error 


! The driver returns this code whenever the specified 
! entry or implied entry has a command pending on it. 

! The "Clear Receive Socket" function returns this 
! error if the current command entry is in use. The 
! "Setup Receive Socket" function returns this error 
! if the specified receive socket entry is in use or 
! the current command entry is in use and the queue is 
! full. The "Current Command" function returns this 
! error only if the current command entry is in use 
! and the queue is full. 


56 i Invalid function code error 

+ 

I The driver returns this code if the user passes a 
! function code to the UnitStatus command that is not 
! 0, 1. 2, 3, 4, 129, 130, 131 or 132. 
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The Window Control Unit 
c c WNDi o 

The Window Control Unit is used to interface with the display 
driver window functions. 

The ccWNDio unit USES unit ccDEFM. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB> ccDEFN, ccWNDio; 


ccWNDio Unit Constants 

Constants defined in ccWNDio are: 


WinCreate Function Flag Values 


I Identifier 
+==-==••====-=. 
! WfyGraf 


Wf g Cur tOn 


Wf g InvCuT 


Wf gWrap 


Wf y Sc rUf f 


Wf gClrPg 



Description 

= = =r=:=:=:=:=r=;s: = =:sx 

Grap hies mode 
Cursor on 



Inverse cursor 


Line wrap 


Scroll off 


C 1 ear page 
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WinSystem Function System Window Select Codes 


! Identifier ! Value ! Description ! 

i WsysCurr ! 1 ! Current process window ! 

H H + 

WsysCmd ! 2 i Cmd/msg window ! 

H f + 

WsysRoot : 3 ! Root user window (full screen) ! 

^ + + 


ccWNDio Unit Types 

Data types defined in ccWNDio are: 


! Data '[ype ! Description 

! pCharSet ! Character set record pointer 


CharSet ! Character set record 


! tblloc: pBytes* < character set data pointer > ! 

! lprh: integer; -C scanlines per character > ! 

! bprh integer; tbits per character > ! 

I frstrh: integer; < first character code - ascii > ! 

I 1 a Etch- integer; -C last character code - ascii > ! 

! mask: longint; -C mask used in positioning cells > ! 

I attrl: byte; ( attributes >! 

! < bit 0=1- vertical orientation > ! 

I attr2: byte; t currently unused (always = 0 ) > ! 

+ + 
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+ =•========== 

! Data Type 
+=========== 

! pWndRcd 



============ +. 


= = = = == = = 5 ==: = + 


Window record pointer 


WndRc d 


Window record 


c h arp t : 

pCharSeti 

< 

character set record pointer 

> 

h omep t : 

pBytes; 

-c 

home (upper left) pointer 

y 

curadr: 

pBytes; 

■C 

current location pointer 

y 

homeof : 

integer; 

-c 

bit offset of home location 

> 

b a s e x : 

integer; 

< 

home x value, rel to root window 

> 

b a s e y : 

integer; 

■c 

home y value, rel to root window 

> 

1 n g t h x : 

integer; 

-c 

maximum x value, bits rel to wnd 

y 

1 n g t h y 

integer; 

-c 

maximum y value, bits rel to wnd 

y 

c u r s x : 

integer; 

•c 

current x value, bits rel to wnd 

y 

curs y 

integer; 

•c 

current y value, bits rel to wnd 

y 

b 1 1 o f s : 

integer; 

-l 

bit offset of current address 

y 

gr orq x : 

integer; 

■c 

graphics origin x, bits home rel 

> 

g r o r g y : 

integer; 

■c 

graphics origin y, bits home rel 

> 

a 1 1 r 1 : 

byte; 

< 

inverse, underscore, insert 

y 

3 i: t t 2 : 

byte; 

< 

v/h, graph/char, cursor on/off, 

y 



< 

cursor inv/under line 

> 

s t. a t <• : 

byte; 

•c 

for decoding escape sequences 

> 

t c <j 1 e 1 1 

byte. 

< 

window description record length 

> 

a t i r 3 : 

byte; 

c 

enhanced character set attributes)- 

f i .11 1 : 

byte. 

< 

currently unused 

> 

fil)2: 

byte; 


currently unused 

A. 

j 

f i 113: 

byte; 

< 

currently unused 

> 

i i 1 14 

1 o n g i ri t ; 

■i 

currently unused 

j 

wws p tr . 

pBytes. 

< 

window wot- king storage pointer 

■». 

j 


c'WWDin Unit Variables 

Variable? defined in ccWNDio are: 

M(.:m . 
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ccWNDio Unit P unctions and Procedures - 
Procedures defined in ccWNDio are: 

Procedure ! Description 
ccWNDio In it ! Unit initialization 



c r. WNDi r In i t Procedure 

ccWNUi olnit initializes the ccWNDio unit. This procedure must be 
colled before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE: c cWNDi olnit; 

An example of this procedure is: 

c ( WN1) i o J 1 1 1 1 ; 
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WinSys tern Function 

WinSystem selects a system defined window. The definition of 
this function is: 

FUNCTION WinSystem (WN: integer): integer; 

! Parameter' ! Data Type ! Description ! 

1 WN ! integer I System window selection code ! 

+ + + h 

1 he function returns the IORESULT from the display driver select 
window Function. A value of O indicates a successful operation. 
UN is one of the following: 

I Identifier ! Value ! Description 

i WsysCurr ! 1 ! Current process window 

+ 4- K 

! WsysCmd ! 2 ! Cmd/msg window 

+ + + 

! WsysRocit ! 3 ! Root user window (full screen) 

+ + + 

1 I 4. 20 ! Dynamic system windows created 

! ! ! usingtheCreWridowkey 

+ + h 

An fiuiiiple of this function is: 
van Wstatus: integer) 

Wviatus : = WinSystem (WsysCmd )i 

writ*? In (''Ihis appears in the command window'); 

W'-tat us := WinSystem (WsysCurr); 
writeln ('’Ihis appears in the user window'); 

wit. at us is the status of the display driver select window 
function Ihis example selects the command window and outputs 
text The user window (current window when the program was 
loaded) is then selected. 
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WinCreate Function 

WinCreate creates a user defined window. The definition of this 
function is: 

FUNCTION WinCreate (var WR : WndRcd; HomeXi HomeY< 

Wi d t h < Lng t h i FI ag s : integer): integer; 


+==■=========+ 

! Parameter ! 



WR 


H o m e X 


H o m e Y 


Width 


Lngth 


flags 



Data Type 
WndRcd 

integer 

integer- 

integer 

integer 

integer 


+ = rS = ZXB = S = SI!SEB=BEEE3EBSSE£S:r2S&f 

! Description ! 


! Window record of window to 
I create 

+ 

! New window home coordinates 
+ relative to current window 


New 

window 

width 

(X 

size) 1 

— 

New 



window 

length 

( Y 

size) 1 

flag 

codes 

from table 

below ! 


The function returns the IORESULT from the display driver create 
window function A value of O indicates a successful operation. 

For text windows HomeX/ HomeY, Width/ and Lngth contain character 
position values. for graphics windows (WfgGraf in Flags) these 
variables contain pixel position values. HomeX and HomeY contain 
the home (upper left) position of the new window relative to the 
current window/ either characters or pixels. 

Width contains the number of positions in the X direction of the 
new window/ either characters or pixels. Lngth contains the 
number of positions in the Y direction of the new window/ either 
characters or pixels. 
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Flags contains the sum of window attributes from: 

! Identifier ! Value ! Description ! 

! WfyGraf ! 2 ! Graphics mode ! 


Wf g Cur s On 

1 

1 

4 

! 

Cursor on 

W P g I n vCur 

l 

l 

B 

i 

i 

Inverse cursor 

Wf (j Wr a p 

I 

l 

16 

i 

Line wrap 

Wf gScrfif f 

l 

32 

i 

i 

Scroll off 

Wf gClrPg 

1 

— h 

64 

i 

i 

- + - 

Clear page 


An example of this function is: 


var Wstatus: integer; 

home x i homey; width; lngth; curx ( cury: integer; 
BaseX; B a s e Y ; LngthX; LngthY; Wflags: integer; 
User Window. WndPrd; 


Wr tatus 
li,if.eX 
LngthX 
W f 1 <a g s 
W t a t u s 


: = WinStatus < h ome x ; h ome y ; w i d t h ; 1 ng t h ; c ur x ; c ur y ) ; 
* O, BaseY : = 0; 

- width; LngthY : = 3; 

= WfgCursOn + WfglnvCur; 

:= Win Create (UserWindow; 

BaseX; BaseY; LngthX; Lng thY; Wflags); 


Wstatus is the status of the display driver create window 
function UserWindow is the user window record for the new 
window This example creates a three line text window at the top 
of the current window. 
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WinSe) cct Function 

WinSelect selects a user defined window to be the current window. 
After the window is selected) all display driver activity affects 
only the newly selected window. The definition of this function 
i s : 


FUNCTION WinSelect (var WR: WndRcd) integer; 


! Parameter ! Data Type I Description 

! WR ! WndRcd ! Window record of window to 

! ! ! select 

+ + (. 

The function returns the IORESULT from the display driver select 
window function. A value of 0 indicates a successful operation. 
WR, the window record, must be created with the WinCreate 
function before selecting the user window, 

---IMPORTANT - -- 

Window records can not be local to a procedure. Place window 
records with the global program variables. When specifying 
window records in parameter strings, always specify them as a VAR 
parameter. Also, select the current system window before exiting 
a program by specifying: 

Wstatus := W in System (WsysCurr); 



An *■< ample of this function is: 

var Wstatus: integer; 

Use i Window: WndRcd; 

Wstatus : - WinSelect (UserWindow); 

Wstatus is the status of the display driver select window 
function. UserWindow is the user window record for the window to 
be selected 
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WinDel t te Function 

WinDelete deletes a user defined window. The definition of this 
function i s : 

FUNCTION WinDelete (var WR : WndRcd): integer; 


+========== 

! Parameter 


WR 


! Data Type 
+=====*==== 
I WndRcd 


+ = = = = = = = r: = = = = s: = = 3= = S! = 5S = = = =:= = =: = = = =: = 

! Description 


Window record of window to 
delete 


+ 

I 

l 

+ 


The function returns the IORESULT from the display driver delete 
window function. A value of O indicates a successful operation. 
WP the window record, must be created with the WinCreate 
function before deleting the user window. 

An example of this function is: 

var Wstatus: integer; 

User Window: WndRcd; 

Wstatus := WinDelete < UserW i n d ow > ; 

Wstatu?; is the status of the display driver delete window 
function. UserWindow is the user window record for the window to 
be deleted. 
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WinClear Function 

WinClear clears the window defined by the specified window 
record. The definition of this function is: 


FUNCTION WinClear (var WR : WndRcd): integer; 


Par ame ter 

i Data Type ! 

! Description 

WR 

1 WndRcd 1 

i i 

! Window record of window to 

I clear 


The function returns the IORESULT from the display driver clear 
window function A value of 0 indicates a successful operation. 
WR. the window record, must be created with the WinCreate 
function before clearing the user window. 

An example of this function is: 

var Wstatus: integer; 

User-Window: WndRcd; 

Wstatus := WinClear < Us erWi nd ow ) ; 

Wstatus is the status of the display driver clear window 
function UserWindow is the user window record for the window to 
be cleared 
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WinStatus Function 


WinStatus sets six integer variables which define the status of 
the current window. The definition of this function is: 

FUNCTION WinStatus (var HomeX > HomeY, Wi d th > Lng th , 

CurX- CurY: integer): integer; 


! Parameter ! Data Type (Description ! 


! HomeX ! integer i Current window absolute 

+ + + home coordinates 

! HomeY I integer ! (relative to entire screen) 


Width 

+ - 

( 

integer 

l 

1 

Current 

window 

width 

< X 

size) 

Lngth 

1 

1 

integer 

• 

l 

Current 

window 

length 

( Y 

size) 

Cui-X 


integer 


Current 

cursor 

position 


CurY 

1 

+ ~ 

integer 

I 

1 







The function returns the IORESULT from the display driver window 
status function. A value of 0 indicates a successful operation. 

For text wi ndows all variables contain character positions 
values for graphics windows (see WinCreate) all variables 
contain pixel positions. HomeX and HomeY contain the absolute 
home (upper left corner of full screen) position of the current 
window, either characters or pixels. 

Width contains the number of positions in the X direction of the 
current window, either characters or pixels. Lngth contains the 
number of positions in the Y direction of the current window, 
either characters or pixels. 

CurX and CutY contain the current cursor position in the current 
window, either characters or pixels. 

An example of this function is: 

var Wstatus: integer; 

AbsflomeX, AbsHoineY, LngthX, LngthY, CursorX, CursorY: integer; 

Wstatus : - WinStatus ( AbsHomeX, AbsHomeY, 

LngthX, LngthY, CursorX, CursorY); 

Wstatus is the status of the display driver window status 
funct j cm 
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WinLoadCh Function 

WinLoadCh loads the specified character set for the current 
window. The definition of this function is 

FUNCTION WinLoadCh (CSname: stringSO): integer; 

! Parameter ! Data Type I Description 

! CSname ! stringBO ! File name of character set 

+ + + 

The Window Manager program is used to load the specified 
character set. The function returns the result from calling the 
Window Manager program. A value of 0 indicates a successful 
character set load 

An example of this function is: 

vor Wstatus: integer; 

Wstatus := WinLoadCh < ' /CCUT IL/CSD. 07. 1 1 ALT ' ) ; 

Wstatus is the status of the character set load returned by the 
Window Manager program. 
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The Graphics Control Unit 
TurtleGraph ics 


The TurtleGraph ics Unit is used to interface with the display 
driver graphics functions. The Corvus Concept implementation is 
a subset of other implementations of Tur t 1 eGrap h i c s . 

The Tur t 1 eGrap h i c s unit USES no other units. 

The unit is included in user software by declaring: 

USES -£*U /CCUTIL/CCLIB> TurtleGraph ics; 


TurtleGraph ics Unit Constants 

Constants defined in Tur t 1 eGrap h i c s are: 

I Identifier I Description : 

! Turtle Version ! Current version number string ! 

+ + + 


Tur t 1 eGrap h i cs Unit Types 

Data types defined in Tur t 1 eGrap h i c s are: 

! Data Type ! Description 

! ScreenColor! Pen colors and screen colors 

+ + y 1 - 

! None ! O ! No color 

+ + h 

(continued on next page) 


======+ 


:S= = : 


+ 


+ 
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! Data Type i Description 

I ScreenColor! Pen colors and screen colors (continued) 
+ — +- 




Wh i te 

1 

1 

1 

+- 

1 

1 

Wh i te 

Black 

1 

l 

2 

1 

Black 

Reverse 

1 

1 

1 

l 

1 

1 

1 

■ 

1 

1 

1 

3 

1 

1 

f 

1 

1 

1 

1 

1 

1 

i 

White — > Black 

Black — > White 

Green — > Violet 

Violet — > Green 

Orange — > Blue 

Blue — > Orange 

Radar 

1 

1 

4 

i 

i 

Not used 

Black 1 

s 

5 

i 

i 

Black 

Green 

1 

1 

1 

1 

6 

• 

* 

i 

Move - Reverse pixel 

Fill - Density = 2 

Violet 

1 

1 

1 

1 

7 

i 

i 

* 

Move - Reverse pixel 

Fill - Density = 2 

Wh i te 1 

1 

1 

8 

i 

• 

White 

B lac k2 

J 

9 

i 

i 

Black 

Orange 

1 

1 

1 

i 

10 

i 

i 

i 

i 

Move - Reverse pixel 

Fill - Density = 3 

Blue 

i 

1 

J 

1 1 

i 

■ 

■ 

■ 

Move - Reverse pixel 

Fill - Density = 3 

White2 

1 

12 

■ 

i 

— +- 

White 


TurtleGraphics Unit Variables 

Variables defined in TurtleGraphics are: 
None. 
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TurtleGraphics Unit Functions and Procedures 
Procedures defined in TurtleGraph ics are: 


Procedure 

Description 

In i tTur t 1 e 

Unit initialization 

Graf Mode 

Set graphics mode 

Tex tMode 

Set text mode 

VieuiPort 

Set view port 

PenCo 1 or 

Set pen color 

Fi 1 IScreen 

Fill view port with color 

I T urn 

Turn turtle (relative to current) 

TurnTo 

Turn turtle (absolute) 

Move 

Move turtle (relative to current) 

MoveT o 

Move turtle (absolute) 


Functions defined in TurtleGraphics are: 

Function ! Description ! 

«3s=aa:sssssa:+sBss3EBSSSsaaBSBssaai:9ts&ssBB3BBjEasaas3ssEzsBS + 

TurtleX ! Get current turtle X coordinate ! 


TurtleY ! Get current turtle Y coordinate 


TurtleAng ! Get current turtle angle 


ScreenBit ! Test for displayed pixel 
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InitTurtle Procedure 

InitTurtle initializes the Tur t 1 eGrap h i c s unit. This procedure 
must be called before any other functions or procedures in this 
unit are called. The definition of this procedure is: 

PROCEDURE InitTurtle; 

The current window is cleared. The turtle placed in the center 
of the window with an angle of 0 degrees (facing the right side 
of the screen). 

To obtain the current window size, use the TurtleX and TurtleY 
functions and multiply each value by two. 

An example of this procedure is: 

var maxX.maxY: integer; 

InitTurtle; 

maxX := TurtleX * 2; 

maxY : = TurtleY * 2; 
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Graf Mod e Procedure 

GrafMode sets the graphics mode. The definition of this 
procedure is: 

PROCEDURE GrafMode; 

The procedure does nothing in this implementation. It is 
included for compatibility with other implementations. 

An example of this procedure is: 

GrafMode; 


TextMode Procedure 

TextMode sets the text mode. The definition of this procedure 
i s : 


PROCEDURE TextMode; 

The procedure does nothing in this implementation. It is 
included for compatibility with other implementations. 

An example of this procedure is: 

Tex tMod e; 
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ViewPort Procedure 

ViewPort sets the limits of the current plotting "window". As 
lines are drawn only line segments contained in the current view 
port are displayed. Line segments outside of the current view 
port are not displayed! ie, "clipped" at the edge of the view 
port. The definition of this procedure is: 

PROCEDURE ViewPort < Left , R i g h t< Bot tomi Top : integer); 


! Parameter i Data Type 
! Left ! integer 


Eaa!Bxs:sssssaK££S:s:sa:ssr3:rssssesss4. 


i Description 


! View port left edge (X coord)! 


I Right 


! integer 


! View port right edge (X coord)! 

-+ + 

! View port bottom edge (Y coord)! 

-+ + 

! View port top edge (Y coord)! 


i Bottom 


! integer 


! integer 
-+ 


The procedure sets the limits for the current view port. View 
port limits are relative to the current window. Initially; the 
view port limits describe the entire current window. 

View Port Relationship to Current Window 



An example of this procedure is: 
ViewPort (100,200,200,300); 


September 1, 1983 


Copyright 1983 Corvus Systems, Inc. 




Corvus Concept Pascal System Library 
Graphics Control Unit 


TurtleGraph ics 
Page 12-7 


PenColor Procedure 

PenColor sets the current pen color. The definition of this 
procedure is: 

PROCEDURE PenColor (Color: ScreenCol or ) ; 



The procedure sets the pen color to the specified color. All 
lines are drawn (with Move or MoveTo) with this color. Color 
None is specified to not draw lines when moving the turtle. 

An example of this procedure is: 

PenColor (white); 


FillScreen Procedure 

FillScreen fills the current view port with the specified color. 
The definition of this procedure is: 

PROCEDURE FillScreen (Color: ScreenColor ) ; 

-sssssssssssscssasxBsssrsz 

Description 
Background color 




An example of this procedure is: 

Viewport (100-200,200,300); 
FillScreen (white); 
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Turn Procedure 

Turn rotates the turtle the specified number of degrees. The 
definition of this procedure is: 

PROCEDURE Turn (Degrees: integer); 


Parameter 

i Data Type i 

Description 

Degrees 

! integer ! 

Angle to turn 


The procedure rotates the turtle counter clockwise if the angle 
is positive or clockwise if the angle is negative. The angle of 
rotation has a range of from -359 degrees to 359 degrees. 
Rotation is relative to the current turtle angle. 

An example of this procedure is: 

Turn (-90); 


TurnTo Procedure 

TurnTo turns the turtle to the specified heading. The definition 
of this procedure is: 

PROCEDURE TurnTo (Degrees: integer); 

i Parameter ! Data Type ! Description ! 


I Degrees ! integer ! Absolute turtle heading 

+ + + 

The procedure turns the turtle to the specified angle. Turtle 
headings are: 

90! 

I 

I 

180 + 0 

I 

I 

i 270 

An example of this procedure is: 

TurnTo (90); 
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Move Procedure 

Move draws a line of the specified length from the current turtle 
position. The definition of this procedure is: 

PROCEDURE Move (Distance: integer). 

I Parameter i Data Type ! Description 

+ ssB3KaESxaEB-fsss==as=:=sBBas-|<c«xsBBBBBaEBCESs:3:Ba3;sssrxBs=3 

I Distance i integer ! Length of line 


The procedure moves the turtle a specified distance from its 
current position, drawing a line of the current pen color. The 
direction to move is defined by the current turtle angle. If the 
current pen color is None, the turtle is moved the specified 
distance with no line being drawn. 

An example of this procedure is: 

Move ( 100) i 



MoveTo Procedure 

MoveTo draws a line from the current turtle position to the 
specified coordinates. The definition of this procedure is: 

PROCEDURE MoveTo (NxtX, NxtY: integer)) 


i Parameter i Data Type i Description i 

! NxtX I integer ! New absolute X coordinate i 

+ + + + 

I NxtY ! integer ! New absolute Y coordinate ! 

+ h — “ + — — — — — — + 


The procedure moves the turtle from its current position to the 
specified absolute coordinates, drawing a line of the current pen 
color. If the current pen color is None, the turtle is placed at 
the specified coordinates with no line being drawn. The current 
turtle heading is not changed. 

An example of this procedure is: 

MoveTo (100,200)) 
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TurtleX Function 

TurtleX is used to ascertain the current turtle X coordinate. 
The definition of this function is: 

FUNCTION TurtleX: integer; 

The function returns the current turtle X coordinate. The 
coordinate is relative to the current window and is not related 
to the view port. 

An example of this function is: 

var CurX: integer; 

curX : = TurtleX; 

writeln < 'The current turtle X coordinate is ',CurX:l); 


TurtleY Function 

TurtleY is used to ascertain the current turtle Y coordinate. 
The definition of this function is: 

FUNCTION TurtleY: integer; 

The function returns the current turtle Y coordinate. The 
coordinate is relative to the current window and is not related 
to the view port. 

An example of this function is: 

var CurY: integer; 

curY : = TurtleY; 

writeln ('The current turtle Y coordinate is '<CurY:l); 
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TurtleAng Function 

TurtleAng is used to find the current angle of the turtle. The 
definition of this function is: 

FUNCTION TurtleAng: integer! 

The function returns the current angle of the turtle in degrees. 

The angle has a range of from 0 to 359 degrees. Turtle headings 
are : 

90! 

I 

I 

180 + 0 

I 

I 

1270 

An example of this function is: 
var CurAngle: integer; 

CurAngle : ■= TurtleAng; 

writeln ('The current turtle angle is CurAngle: 1> ' degrees'); 


ScreenBit Function 

ScreenBit tests the status of the pixel at the current turtle 
position. The definition of this function is: 

FUNCTION ScreenBit: boolean; 

The function returns the status of the pixel at the current 
turtle position. TRUE is returned if the pixel is on (white) or 
FALSE if the pixel is off (black). 

An example of this function is. 

MoveTo (100,200); 

if ScreenBit then write ('Pixel on at 100,200') 
else write ('Pixel off at 100,200'); 
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Miscellaneous Functions and Procedures 


CCLIB contains several assembly language functions and 
procedures. To use functions and procedures in this section* 
declare the function or procedure as EXTERNAL. The linker 
resolves the external declarations when CCLIB is linked uiith a 
program. 

The functions and procedures assume no static link on the stack 
when called. This implies defining the external functions and 
procedures at the global level. 

Miscellaneous Functions and Procedures 

Miscellaneous procedures defined in CCLIB are: 


! Procedure I Description 


xGetDir ! 

! Read volume directory 

xPutDir 1 

! Write volume directory 


Miscellaneous functions defined in CCLIB are: 

Function i Description 

OSactSlt ! Get active slot 

+ 

! OSactSrv i Get active server 

+ + 

i OSsltType ! Get device type for slot 

+ 

! OSdevType i Get device type for given unit number 

+ 

OSmaxDev ; Get maximum device number 

+ 

(continued on next page) 
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! Function I Description 


I OSdcmlDv ! Get DTACOM1 driver device number 



0Sdcm2Dv j 

! Get DTAC0M2 driver device number 

OSdispDv 1 

! Get DISPLAY driver device number 

□SkybdDv 

Get KYBD driver device number 

OSomniDv 

Get OMNINET driver device number 

OSpr trDv 

Get PRINTER driver device number 

OSsltDv 

Get SLOTIO driver device number 

OSstrmDv 

Get SYSTERM driver device number 

□St imDv 

Get TIMER driver device number 

□Ssy sSi ze 

Get system size 

OScurSP 

1 Get current system SP 

OSvrtCrt 

Returns TRUE if vertical orientation 

pOScurKbd 

Get current keyboard record pointer 

pOScurWnd 

Get current window record pointer 

pOSsy sWnd 

Get system window record pointer 

pOSd evNam 

Get device name string pointer 

pOSdate 

Get system date pointer 

pOSsysVol ! 

1 Get system volume name string pointer 

pOScurVol 

Get current volume name string pointer 

pOSsy sVrs 

Get OS version number string pointer 

pOSsy sDat 

Get OS version date string pointer 



(continued on next page) 


September 1, 1983 


Copyright 1983 Corvus Systems/ Inc. 












































Corvus Concept Pascal System Library 

Miscellaneous Functions and Procedures Page 13-3 


I Function ! Description 

•f-aaxaxaavamaasBx-f-BaiEBaBBBaKacBKBBKBaaKsssaBBKBiEBXExaiEc: 

! KeyPress ! Returns TRUE if any key is pressed 

+ 

BrkPress ! Returns TRUE if BREAK key is pressed 

+ 

I BitFlip ! Change state of bit in integer 

+ 

BitSet I Set bit in integer 

+ 

BitClear i Clear bit in integer 

+ 

BitTest ! Test state of bit in integer 

+ 

ShiftRt I Shift integer right one bit 

+ 

I ShiftLt ! Shift integer left one bit 

+ + 

1 MakeByte i Convert integer to byte 


Copyright 1983 Corvus Systems/ Inc. 


September 1# 1983 




















Page 13-4 


Corvus Concept Pascal System Library 
Miscellaneous Functions and Procedures 


xGetDir Procedure 

xGetDir reads the directory of a volume. The definition of this 
procedure is: 

PROCEDURE xGetDir ( VolID: VID; 

var VolDir: directory; 

var VolBlocked: boolean; 

var VolDevNo: integer; 

var VolVal id: boolean); EXTERNAL; 



VolBlocked! boolean 


! VolDevNo I integer 


VolValid ! boolean 


Description 


Volume 

name 

Vo 1 ume 

directory 

Volume 

blocked flag 

Volume 

unit number 

Volume 

directory valid flag 


xPutDir Procedure 

xPutDir writes a volume directory. Use of this procedure is NOT 
recommended. The definition of this procedure is: 

PROCEDURE xPutDir (var VolDir: directory; 

VolDevNo: integer); EXTERNAL; 


Parameter 

! Data Type ! 

Description 

VolDir 

1 

d irec to 

mm 

Volume directory 

VolDevNo 

• 

1 

integer 

■ 

i 

Volume unit number 
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OSactSlt Function 

□SactSlt returns the active disk slot number. The definition of 
this function is: 

FUNCTION OSactSlt: integer; EXTERNAL; 

OSactSrv Function 

OSactSrv returns the active disk server number. The definition 
of this function is: 

FUNCTION OSactSrv: integer; EXTERNAL; 


OSsltType Function 

OSsltType returns the slot type of the specified slot. The 
definition of this function is: 

FUNCTION OSsltType (slot: integer): slottype; EXTERNAL; 


! Parameter ! Data Type 



integer 


! Description 
! Slot number 


+ 


OSdevType Function 

OSdevType returns the slot type of the specified unit number. 

The definition of this function is: 

FUNCTION OSdevType (Unt: integer): slottype; EXTERNAL; 

! Parameter ! Data Type ! Description ! 

•fs==:=ssssss5.fssBSBS=Bsss=sE + saia&saESKBBaBBBsaaiaa:BcsxsxBaB3r==K + 

i Unt j integer I Unit number ! 
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OSmaxDev Function 

OSmaxDev returns the maximum device number. The definition of 
this function is: 

FUNCTION OSmaxDev: integer; EXTERNAL; 

OSdcmlDv Function 

OSdcmlDv returns the device number of DTAC0M1. The definition of 
this function is: 

FUNCTION OSdcmlDv: integer; EXTERNAL; 

0Sdcm2Dv Function 

OSd cm2Dv returns the device number of DTAC0M2. The definition of 
this function is: 

FUNCTION OSd cm2Dv : integer; EXTERNAL; 

OSdispDv Function 

OSdispDv returns the device number of DISPLAY. The definition of 
this function is: 

FUNCTION OSdispDv: integer; EXTERNAL; 

OSkybdDv Function 

OSkybdDv returns the device number of KYBD. The definition of 
this function is: 

FUNCTION OSkybdDv: integer; EXTERNAL; 
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□SomniDv Function 

OSomniDv returns the device number of OMNINET. The definition of 
this function is: 

FUNCTION OSomniDv: integer; EXTERNAL; 

OSprtrDv Function 

OSprtrDv returns the device number of PRINTER. The definition of 
this function is: 

FUNCTION OSprtrDv: integer; EXTERNAL; 

OSsltDv Function 

OSsltDv returns the device number of SLOTIO. The definition of 
this function is: 

FUNCTION OSsltDv: integer; EXTERNAL; 

OSstrmDv Function 

OSstrmDv returns the device number of SYSTERM. The definition of 
this function is: 

FUNCTION OSstrmDv: integer; EXTERNAL; 

OStimDv Function 

OStimDv returns the device number of TIMER. The definition of 
this f unc t ion is: 

FUNCTION OStimDv: integer; EXTERNAL; 
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OSsysSize Function 

OSsysSize returns either 256 or 512 to indicate system memory 
size. The definition of this function is: 

FUNCTION OSsysSize: integer; EXTERNAL; 


OScurSP Function 

OScurSP returns the current system stack pointer value. The 
definition of this function is: 

FUNCTION OScurSP: longint; EXTERNAL; 


OSvrtCrt Function 

OSvrtCrt returns TRUE if the display is in the vertical 
orientation or FALSE if the display is in the horizontal 
orientation. The definition of this function is: 

FUNCTION OSvrtCrt: boolean; EXTERNAL.; 


pOScurKbd Function 

pOScurWnd returns a pointer to the current keyboard record. The 
definition of this function is: 

FUNCTION pOScurKbd: pointer; EXTERNAL; 


pOScurWnd Function 

pOScurWnd returns a pointer to the current window record. The 
definition of this function is: 

FUNCTION pOScurWnd: pointer; EXTERNAL; 
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pQSsysWnd Function 

pOSsysWnd returns a pointer to the specified system window 
record. The definition of this function is: 

FUNCTION pOSsysWnd (WndNbr: integer): pointer. EXTERNAL; 

+fisx8Bsars3)SB4.ssss8aa;ss8BaBBfseassa38SSBaB8ss8SBBxaBsaeaBS3aE'f 

! Parameter i Data Type ! Description ! 

I WndNbr ! integer I System window number ! 

+ + + + 


pOSdevNam Function 

pOSdevNam returns a pointer to the device name of the specified 
device. The definition of this function is: 


FUNCTION pOSdevNam (UntNbr: integer): pointer; EXTERNAL; 

+=3BSBssas;sB-fBBaa8aaBXXBaB8-fBBraEaBaessB8S8BXBBBasx=xaxaeBBB + 

! Parameter ! Data Type ! Description ! 

+xBXxxaaBXXx4.sxxxaxxBXSE38B+xBXBBxarax&a8&&aBBBaaBBXBasx8aaBf 

! UntNbr ! integer ! Unit number of device ! 

+ + + + 


pOSdate Function 

pOSdate returns a pointer to the system date. The definition of 
this function is : 

FUNCTION pOSdate: pointer; EXTERNAL; 


pQSsysVol Function 

pOSsysVol returns a pointer to the system volume name string. 

The definition of this function is: 

FUNCTION pOSsysVol: pointer; EXTERNAL; 
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pOScurVol Function 

pOScurVol returns a pointer to the current volume name string. 

The definition of this function is: 

FUNCTION pOScurVol: pointer! EXTERNAL; 

pOSsysVrs Function 

pOSsysVrs returns a pointer to the OS version number string. The 
definition of this function is: 

FUNCTION pOSsysVrs: pointer; EXTERNAL; 

pOSsysDat Function 

pOSsysDat returns a pointer to the OS version date string. The 
definition of this function is: 

FUNCTION pOSsysDat: pointer; EXTERNAL; 

KeyPress Function 

KeyPress returns TRUE if any key is pressed and not yet read. 

The definition of this function is: 

FUNCTION KeyPress: boolean; EXTERNAL; 

BrkPress Function 

BrkPress returns TRUE if the BREAK key has been pressed. The 
function clears the "BREAK key pressed" flag in the keyboard 
driver. The definition of this function is: 

FUNCTION BrkPress: boolean; EXTERNAL; 
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BitFlip Function 

BitFlip returns an integer u/ith the specified bit changed. The 
definition of this function is: 


FUNCTION BitFlip ( Data, B i tNum: integer): integer; EXTERNAL; 


i Parameter ! 

Data Type 

mm + 

1 

» 

Description 

! Data ! 

integer 

1 

1 

Integer data 

! BitNum ! 

integer 

1 

1 

+ 

Bit number to change 


BitSet Function 

BitSet returns an integer with the specified bit set. The 
definition of this function is: 


FUNCTION BitSet (Data, BitNum 

integer): integer; 

EXTERNAL; 

! Parameter i Data Type 

1 

1 

Description 

I 

! Data ! integer 

1 

Integer data 

l 

« 

! BitNum i 'integer 

+ + 

1 

1 

“ + 

Bit number to set 

> 

1 


BitClear Function 

BitClear returns an integer with the specified bit clear. The 
definition of this function is: 

FUNCTION BitClear ( Data, B i tNum: integer): integer; EXTERNAL; 




Parameter ! 

Data Type 

! Description 

1 

t 

Data ! 

integer 

I Integer data 

1 

< 

BitNum ! 

integer 

I Bit number to clear 

1 

l 
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BitTest Function 

BitTest returns TRUE if the specified bit is set< FALSE if clear. 
The definition of this function is: 

FUNCTION BitTest (Data* BitNum: integer): boolean) EXTERNAL; 


Parameter 

Data Type 

Description 

Data 

integer 

Integer data 

BitNum 

integer 

Bit number to test 


ShiftRt Function 

ShiftRt returns an integer with the specified data shifted one 
bit to the right. The definition of this function is: 

FUNCTION ShiftRt (Data: integer): integer; EXTERNAL; 



ShiftLt Function 

ShiftLt returns an integer with the specified data shifted one 
bit to the left. The definition of this function is: 

FUNCTION ShiftLt (Data: integer): integer; EXTERNAL; 

•f-SSZZZSSSSSr + sCSSSSSSSSSSSS-fSSCBSSSBStBBSBBZXBMBSSaBBECSSSSS'f 

I Parameter ! Data Type ! Description 

■fSBSBSSSSBBS+XB&SEBBBSSSBBS+BBSBBaBBSSSSS 

I Data ! integer ! Integer data 
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MakeByte Function 

MakeByte returns a byte of data from the specified data, 
definition of this function is: 

FUNCTION MakeByte (Data: integer): byte; 

•faBrsrssssss-fssxxBSS&ssBBaBfsrssKaBSSSBBsssassaBBssa 

! Parameter i Data Type ! Description 

4>BBBBB!BSBBiaS + SSSBaBBSSS!SSBIB + BBSSSBSC8SSBSSBBBBBS*SSBa 

I Data ! integer i Integer data 

+ + + 


The 

EXTERNAL; 

!=SS= MSS9S + 
I 

SBBS33BE-f 

< 

I 

- + 
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The Corvus Disk Interface Unit 
ccDRVio 


The Corvus Disk Interface Unit is used to interface with the 
Corvus disk controller. This unit is used by all of the Corvus 
utilities which communicate directly with the Corvus disk 
controller. It is used for both Omninet disks and local disks. 
It can access any slot and any server. 

The ccDRVio unit USES units ccDEFN and ccLNGINT from CCLIB. 

The unit is included in user software by declaring: 

USES <*U /CCUTIL/CCLIB> ccDEFN. ccLNGINT, 

<*U /CCUTIL/C2LIBJ ccDRVio; 


ccDRVio Unit Constants 

Constants defined in ccDRVio are: 


I Identifier 

: sc a an m as as mm m m * as 

DrvIQversion 
CDbuf_Max 
DrvBl kSi ze 
SndRcvMax 
Low_Sl ot 
Hi gh_Slot 
Low_Server 
High_Server 



Description 


lacaaBss: 

Current 

VMM 

unit 

BaBSBSBBSSSBXBSBaXSB' 

version number 

Corvus 

disk 

buffer length 

Disk bl 

oc k 1 

eng th 

Send /re 

ce i ve 

string length 

Minimum 

slot 

numb er 

Max imum 

slot 

numb er 

Mini mum 

serv 

er number 


Maximum server number 


(continued on next page) 
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•f = SSS=MKHS3 

I Identifier 

fssssssasaBBa 

! MUX 


i Value i Description 

Et3SSBBBS-fS3IBBXBSSB»BBaBBSBBxaBBI 

! 64 i Server number for MUX 

! ! (High_Server + 1 ) 



i Maximum number of drives on 
i disk server or MUX 



ccDRVio Unit Types 

Data types defined in ccDRVio are: 



Data Type ! Description 


Disk controller command string record 


sin: integer; -(send length} 
rln: integer; -Crecv length} 
case integer of 

1: <c: packed array C 1 . . SndRc vMa x 3 of char); 
2: (b: array C 1. . SndRcvMax 3 of byte); 



CDaddr I Network address record 


byte; { Slot number } 
SlotType; < Type of interface in slot } 
byte; { Network number (UNUSED) } 
byte; { Omni net station address } 
byte; -C Disk drive number } 
Longlnt; -t Disk block number } 


Physical disk drive information record 
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ISKXBS3SB4- 


■fBBXBaiBBlXEBB-fBBaBBXXaXXXBBBXBaBBaBKBBaaaiBaBBBBBa 

I Data Type ! Description 

4-aBBBXBBBBanai-fBixaBXXBBxaiBasaiBBaB«aKBBBBaaBSBaiaaiaii 

I DrvBlk I Disk block record 

+ — + + 

! case integer of 

! 1: <c: packed array C 1 . . DrvBl kSi ze3 of char); 

! 2: (b: array C 1. . DrvBl kSi ze3 of byte); 

+ — + + 


; CD Buf 


! Disk command block record 


I array CO. . CDbuf_Max3 of byte; 


i Valid Slot i Valid slots 


I Low_Slot. . High_Slot; 


! Valid Server Valid disk servers 


I Lou»_Server. . High_Server; 


! PDrArray ! Physical disk drive information table 


I array Cl..DrMax3 of PhysDrlnfo; 


! SprTrks 


I Spare tracks table 


I array Cl..DrMax3 of integer; 

+ — + + 

i Host_Type ! Host device types (not currently used) 


! User_Station 

+ 

! File Server 


0 ! User station 

+ 

1 ! File server 


! Pr inter_Server 

+ 

! Name Server 


2 ! Printer server 

+ 

3 i Name server 


! Modem_Server 

+ 

! DB Server 


-+- 

! 


4 ! Modem server 

5 ! Data base server 


! ON_Interc onnec t 
+ 


6 ! Omninet interconnection 

+ 

7 ! X. 25 gateway 


I X25_Gateway 
+ 


! SNA_Gateway 


8 ! SNA gateway 

f 
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-faiiEHniUKfmsissHaan 

I Data Type i Description 


t+ 

I 

I 

* + 


I DrRev 

+ — + 

I NoDrv 

+ 

RevA 


Disk controller revision number 

+ + 

I 0 I No controller 


1 

2 


I Rev A controller 
-+ 

i Rev B controller 

- — -+ 

3 ! Rev H controller 

-+ + + 

! Disk drive size 


! RevB 

+ 

I RevH 

+ — + 

! DrSizes 
+ — + 


OldTenMB 

• 

1 

0 

- + - 

1 

1 

Rev 

A 10 megabyte disk 

FiveMB 

Hj 


n 

S or 6 megabyte disk 

TenMB 

mi 


i 

10 

or 12 megabyte disk 

TuientyMB 

< 

• 


i 

18 

or 20 megabyte disk 

FortyMB 

i 

4 

i 

« 

. . . 

reserved 

Si xtyMB 

1 

1 

3 

* 

■ 


reserved 

HundredMB 

I 

+ 

6 

t 

i 

-« f- 


reserved 


+- 

I 

I 

+ - 


c c DRV i o Unit Variables 

Variables defined in ccDRVio are: 

■fxssssrBSEBBsafrs8BESBsss3S-fCBBaaBaiV8aB«BHBKBaBMi:B«Bnaassxss 

•' Variable Data Type • Description 

4-BBSSSSB«aSSa|BSSBSI!B8BCSB-faBBnBBBIBBB9BB8SBBBBBBaaBaBai8SSK 

I Spares ! SprTrks * Spare tracks table 

+ + + 


+ 

< 

i 

+ 
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ccDRVio Unit Functions and Procedures 

Procedures defined in ccDRVio are: 

^■■■aa aS 8aMgg a 4. BaBRBB a B KiaBaa»BsaaH*BUBsrsamBRBBBKssssssf 


Procedure i 

Description 

l 

1 

ccDRVioInit ! 

Unit initial i zation 

• 

< 

InitSlot i 

Initialize network address record 

i 

i 

Drvlnit 1 

1 

1 

Get number of drives and physical disk 
information table 

i 

1 

1 

i 

CDsend I 

Send disk command to controller 

i 

i 

CDrecv 1 

Receive data from controller 

1 

« 

+ 


Functions defined in ccDRVio are. 


I Function ! Description ! 

! CDslotlnfo i Get slot type ! 

+ + + 

! CDbootlnfo ! Get boot slot number type, and disk : 

! i server number ! 

+ + + 

i CDslot ! Verify that Corvus disk is in slot i 

+ + + 

I CDserver ! Verify disk server number ! 

+ + + 

i CDread ! Read data from disk i 

+ + + 

! CDwrite ! Write data to disk ! 


+ + + 


Copyright 1983 Corvus Systems. Inc. 


September 1. 1983 

























ccDRVio 
Page 14-6 


Corvus Concept Pascal System Library 
Corvus Disk Interface Unit 


ccDRVioInit Procedure 

ccDRVioInit initializes the ccDRVio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccDRVioInit; 

An example of this procedure is: 

ccDRVioInit; 


InitSlot Procedure 

InitSlot initializes a network address record with the values for 
the boot slot and boot disk server. The definition of this 
procedure is: 

PROCEDURE InitSlot (VAR NetLoc: CDaddr); 


Parameter i Data Type ! Description 

NetLoc ! CDaddr i Network address of disk drive 


The procedure initializes the specified network address record 
with the following values: 

SlotNo - boot slot number 

Kind - boot slot type 

StationNo - boot disk server number 

NetNo - O 

DriveNo - 1 

BlkNo - O 

An example of this procedure is: 
var curAddr: CDaddr; 

InitSlot (curAddr); 


September 1, 1983 


Copyright 1983 Corvus Systems/ Inc. 






Corvus Concept Pascal System Library 
Corvus Disk Interface Unit 


ccDRVi o 
Page 14-7 


Drvlnit Procedure 

Drvlnit returns the number of drives and physical disk drive 
information for the specified disk drive controller. The 
definition of this procedure is: 

PROCEDURE Drvlnit (NetLoc: CDaddri 

VAR NumDrives: integer; 

VAR PhysDrives: PDrArray); 


i Parameter J Data Type 

I NetLoc ! C Dad dr 

+ + 

< NumDrives I integer 


I PhysDrives! PDrArray I Physical disk drive info table 


The procedure sets integer variable NumDrives to the number of 
disk drives at network address NetLoc. The physical disk drive 
information table. PhysDrives. is initialized for the number of 
drives on the disk controller. 

An example of this procedure is: 

var curAddr: CDaddr; curDrvs: integer; PDtable: PDrArray; 
i: integer; 

Drvlnit ( c urDrvs. PDtab 1 e ) ; 
for i := 1 to curDrvs do begin 

■C . . . . do something for each drive on controller > 
end; -Cfor> 


Description ! 

Network address of disk drive 
Number of drives on controller 
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CDsend Procedure 

CDsend sends the specified disk command to the disk drive. The 
definition of this procedure is: 

PROCEDURE CDsend (NetLoc: CDaddr; VAR DtaStr: SndRcvStr); 



The procedure sends data in DtaStr to the disk drive at location 
NetLoc. DtaStr. sin bytes are sent to the disk drive. Normally- 
procedure CDrecv is executed directly after a CDsend in order to 
receive data back from the disk drive. 


An example of this procedure is: 

var curAddr: CDaddr- curCmd: SndRcvStr- 


uith curCmd do begin 

sin := nn- < set send length 

rln :** nn- < set reev length 

•C ...set disk controller command 
-C ...move data to buffer- if needed 
CDsend ( cur Addr- curCmd ) ; 

CDrecv (curAddr- curCmd ); 

•C ...check for successful operation 
end- {with curCmd do> 


> 

> 

> 

> 


> 
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CDrccv Procedure 

CDrecv receives disk data from the disk drive. The definition of 
this procedure is: 

PROCEDURE CDrecv (NetLoc: CDaddr; VAR DtaStr: SndRcvStr); 


1 Parameter 

[-■aBaaBBEMBBSB 

Data Type 

i Description 

■ + 

1 

i 

1 NetLoc 

CDaddr 

1 Network address of disk drive 

1 

1 

! DtaStr 
+ 

SndRcvStr 

! Disk command buffer 

1 

1 

— + 


The procedure receives data in DtaStr from the disk drive at 
location NetLoc. DtaStr. rln bytes are received from the disk 
drive. Normally* procedure CDrecv is executed directly after a 
CDsend in order to receive data back from the disk drive. 

An example of this procedure is: 

var curAddr: CDaddr; curCmd: SndRcvStr; 

with curCmd do begin 

sin := nn; < set send length > 

rln :* nn; { set recv length > 

•C ...set disk controller command > 

■C ...move data to buffer, if needed > 

CDsend ( cur Addr, curCmd ) ; 

CDrecv C c ur Ad dr , c urCmd ) ; 

■C ...check for successful operation > 
end; {with curCmd do> 
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CDs 1 o t Inf o Function 

CDslotlnfo returns the slot type for the specified slot number. 
The definition of this function is: 


^UNCTION CDslotlnfo (SlotNum: integer): SlotType; 


+ 

1 

Parameter I 

sr s = = 

Data 

Type 


I+CZZSEirBBK»BC 

! Description 



*==* + 

1 

1 

1 

SlotNum ! 

integer 


i Slot number 



1 

1 









+ 

this function returns the slot type for the specified 
number. Slot types are: 

slot 


1 

1 

Identifier 

1 

1 

Value 

I 

Description 



! 

1 

1 

NoDi sk 

1 

0 

1 

1 

No disk 



1 

1 

1 

1 

LocalDisk 

1 

1 

1 

1 

Corvus local disk 


1 

1 

I 

OmninetDisk 

1 

1 

2 

1 

1 

Corvus Omninet 

disk server 

! 

1 

1 

FlpyCBDisk 

j 

3 

1 

1 

Corvus 8" SSSD 

floppy 

disk 

I 

1 

FlpyC5Disk 

1 

1 

4 

1 

1 

. . . reserved 



• 

1 

1 

< 

F lpyA5Disk 

1 

1 

5 

1 

« 

Apple 5" floppy 

disk 


1 

1 

1 

1 

BankDi sk 

1 

1 

6 

i 

. . . reserved 



l 

1 

1 

1 

FlpyF8Disk 

1 

1 

7 

i 

i 

Corvus 8" DSDD 

floppy 

disk 

i 

■ 

1 

1 

F 1 p yFSDi s k 

1 

1 

8 

i 

i 

Corvus 5" DSDD 

floppy 

disk 

1 

» 

1 

1 

+ 

FlpyF3Disk 

j 

9 

i 

i 

— *■- 

. . . reserved 



• 

f 
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An example of this function is: 

var i: integer; Stype: SlotType; 

for i : = Lou/_Slot to High_Slot do begin 
Stype := CDslotlnfo (i); 
write ('Slot '» n: 1# ' contains 
case Stype of 

NoDisk: writeln ('no disk'); 

LocalDisk: writeln ('a Corvus local disk'); 
OmninetDisk: writeln ('a Corvus Omninet disk'); 
FlpyCBDisk: writeln ('a Corvus 8" SSSD floppy disk'); 
FlpyC5Disk: writeln ('no disk'); 

FlpyA5Disk: writeln ('an Apple 5" floppy disk'); 
FlpyF8Disk: writeln ('a Corvus 8" DSDD floppy disk'); 
FlpyF5Disk: writeln ('a Corvus 5" DSDD floppy disk'); 
FlpyF3Disk: writeln ('no disk'); 

BankDisk: writeln ('no disk'); 
end; -Cease Stype of> 

end; Cfor> 
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CDboot Info Function 

CDbootlnfo returns the boot slot number, boot disk server number, 
and the boot slot type. The definition of this function is: 

FUNCTION CDbootlnfo (VAR SI otNum. SrvrNum: integer): SlotType; 



This function returns the boot slot type. Integer variable 
SlotNum is set to the boot slot number. Integer variable SrvrNum 
is set to the boot disk server number. Boot slot types are: 


sssssssss-fassBBx 


! Identifier } Value \ Description 
! NoDisk ! O S No disk 


+ 

* 

i 

+ 

i 

i 


! LocalDisk 

+ 

! OmninetDisk 

+ 

! FlpyCBDisk 

+ 

I FlpyC5Disk 

+ 

! FlpyA5Disk 

+ 

■ BankDisk 

+ 

! FlpyFBDisk 

+■ 

! FI p y F5Di s k 

+ 

! FlpyF3Disk 



An example of this function is: 

var Bslot.Bsrvr: integer; Btype: SlotType; 
Btype : ■= CDbootlnfo (Bslot.Bsrvr). 
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This function returns TRUE if the specifed slot contains a local 
disk drive or an Omninet disk drive. FALSE is returned neither 
is present in the slot. 

An example of this function is: 

if CDslot (5) then uiriteln ('Omninet disk available') 

else uiriteln ('Omninet disk not available'); 


CDserver Function 

CDserver return a boolean value indicating if the specified 
server is valid. The definition of this function is: 

FUNCTION CDserver (Server: integer): boolean; 

+ SSSSSatCS3SS<fSKCSBBS«SS 

! Parameter I Data Type 
integer 

This function returns TRUE if the specifed server is valid. 
FALSE is returned if the specified server is not valid. 
Currently) this function is not operational. 


Server 
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CDread Function 

CDread reads data from the disk drive. The definition of this 
function is: 

FUNCTION CDread (NetLoc: CDaddr; 

VAR Buf: CD_Bufi Len: integer): integer; 



CD Buf 


Description 

ECSKSaSSaBBBXBaeSBKBBXESSEBXCSa 

Network address of disk drive 
Data that is read 


integer 


Number of bytes to read 


This function returns the disk status code. NetLoc contains the 
disk drive number and starting block number along with the other 
network address information. Len bytes of data is placed in Buf. 

An example of this function is: 

var IOst: integer; curAddr: NetLoc; curBuff: CD_Buf; 

IOst := CDread ( c ur Ad dr » c urBuf f « 512 ) ; 
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CDwrite Function 

CDwrite writes data to the disk. The definition of this function 
is: 

FUNCTION CDwrite (NetLoc: CDaddr; 

VAR Buf: CD_Buf; Len: integer): integer; 

1 Parameter I Data Type ! Description ! 

i NetLoc. I CDaddr ! Network address of disk drive ! 


Buf 

+ - 

! 

CD_Buf 

1 

1 

Data to be written 

Len 

i 

i 

+- 

integer 

I 

1 

Number of bytes to write 


This function returns the disk status code. NetLoc contains the 
disk drive number and starting block number along with the other 
network address information. Len bytes of data is written to the 
disk from Buf. 

An example of this function is: 

var IOst: integer; curAddr: NetLoc; curBuff: CD_Buf; 

IOst := CDwrite (curAddri curBuf f< 512); 
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The Corvus Disk Pipes Interface Unit 
ccPIPES 

The Corvus Disk Pipes Interface Unit is used to interface with 
the Corvus disk controller pipe functions. 

The ccPIPES unit USES units ccDEFN and ccLNGINT from CCLIB. It 
also USES unit ccDRVio from C2LIB. 

The unit is included in user software by declaring: 

USES {$U /CCUT 1L/CCL 1B> ccDEFN, ccLNGINT, 

■C*U /CCUTIL/C2L IB> ccDRVio, ccPIPES; 


ccPIPES Unit Constants 

Constants defined in ccPIPES are: 

Pipe Command Status Codes 


Identifier 

PipeOk 

Pip eEmpty 

PipeNotOpen 

Pip ef-"u 1 1 

PipeOpErr 

i PipeNotThere 

+ 

I PipeNoRoom 

PipeBadCmd 



Description 


Successful pipes command 


Tried 

to 

read 

an empty 

pipe 

Pipe 

not 

open 

for read 

or write 


-10 ! Tried to write to a full pipe 


-11 I Tried to open an open pipe 


-12 ! Pipe does not exist 



! Pipe 


data structures are full 



Invalid pipes command 


(continued on next page) 
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Pipe Command Return Codes (continued) 

! Identifier ! Value ! Description ! 

! PipesNotlnitted ! -15 ! Pipes area not initialized ! 

H + + + 

I PipeDskErr ! -255 ! ! 

+ + h + 

! An error code lest than -127 is a fatal disk error ! 


I I d ent i f i er 
+==•=========== 

! PipesVersion 

+ 

! PnameLrn 
+ 


+=======+ ===.===================.-==== ======5 = + 

I Value ! Description ! 

H=r ======+ = = = = = = = = = = = = = = = = = == = = = = = := = ===: = = -:=.+ 

I n. n ! Current unit version number I 

+ 1- h 

! 8 ! Pipe name length ! 

+ + + 


ccPIPES Unit Types 

Data types defined in crPIPES arc: 


! Data Type ! Description ! 

! PNameStr ! Pipe name string ! 

+ — + + + 

i s tr ing L PnameLen 3 , i 

+ + 


ccPIPES Unit Variables 

Variables defined in ccPIPES are: 

I Variable ! Data Type ! Description 

! PipeDebug ! boolean ! Pipes debug switch 

+ + + 


•t- 


f* 
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ccPIPES Unit Functions and Procedures 

Procedures defined in ccPIPES are: 

Procedure ! Description 

I ccPIPEinit i Unit ini t i a 1 i za t i on ! 

+ + -i 

Functions defined in ccPIPES are: 

[Function [Description J 

PipeStatus ! Get status of pipes area I 

+ 

PipeOpHd [ Open pipe for reading 

+ H 

PipeUpWr i Open pipe for writing 

+ 

PipeRead i Read data from pipe 

+ H 

! PipeWrite [ Write data to pipe 

+ -i 

PipeCIRd ! Close pipe for reading 

+ 

Piped Ur ! Close pipe for writing 

h 

PipePurgo [ Purge pipe 

1 H 

Pipeslnit [ Initialize pipes area on disk 
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ccPIPEinit Procedure 

ccPIPEinit initialises the ccPIPES unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccPIPEinit (NetLoc: CDaddr); 


.* Parameter ! Data Type 


NetLoc 


CDad dr 


! Description 


! Network location record 


An example of this procedure is: 
var PnetLoc: CDaddr; 


InitSlot (PnetLoc); 


ccPIPEinit (PnetLoc); 


PipeStatus Function 

PipeStatus reads the pipe name table and pipe pointer table from 
disk. The deFinition of this function is: 

FUNCTION PipeStatus (VAR Names. Ptrs: DrvBlk): integer; 



Data Type ! Description ! 

DrvBlk ! Pipe name table ! 


DrvBlk ! Pipe pointer table 


This function returns the status of the pipe command. 
An example of this function is: 

var Pstat: integer; Pnames. Pp trs : DrvBlk; 

Pstat : - PipeStatus (Pnames. Pptrs > ; 
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Format of the Pipe name table is 8 bytes per Pipe (64 Pipes). 

The first name is WOOFWOOF and the last name is FOOWFOOW 

The Pipe pointer table has 64 entries, each B bytes long with the 
following format: 

One byte Pipe number 

Three bytes of starting (512 byte) block number 
Three bytes of ending (512 byte) block number 
One byte of Pipe status code 

Pipe status codes are: 


He x 

! Description 


03 

Open 

for write 

, Pipe empty 

02 

Open 

for read, 

Pipe empty 

80 

C 1 o s 

eO \ 



29 ! 81 ! Open for write 

+ H : 

30 ! 82 ! Open for read 
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PipeOpRd Function 

PipeOpRd open a pipe for reading. The definition of this 
function is: 

FUNCTION PipeOpRd (PName: PNameStr): integer; 

! Parameter ! Data Type ! Description ! 

IP Namc^ ! PNameStr I Pipe name to open ! 

+ + f + 

This function returns the pipe number if the specified pipe 
exists and is not already open. Otherwise, a negative error code 
is returned. 

An example of this function is: 

vsr Pnmbr: integer, Pname PNameStr; 

Pnamo : - 'KLLPIPF'; 

Pnmbr := PipeOpRd (Pname); 
if Pnmbr > 0 

then write In ('Pipe ', Pname, ' L ' , Pnmbr : 1 , ' 3 opened') 
else writeln ('Unable to open pipe ', Pname); 
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PipeOpWr Function 

PipeOpWr opens a pipe for writing, assigns the pipe a name, and 
assigns a number to the pipe. The definition of this function 
i s : 


FUNCTION PipeOpWr (PName: PNameStr): integer; 

! Parameter I Data Type ! Description ! 

! PName ! PNameStr i Pipe name to open ! 

■y h y t- 


This function returns the assigned pipe number if successful. 
Otherwise, a negative error code is returned. 

An example of this function is: 


var Pmtihr: integer; Pname: PNameStr; 


Pnarne : - 
Pnmbr : ~ 
if Pnmbr 
then 
else 


'KLLP I PE ' ; 

PipeOpWr (Pname); 

> 0 

writeln ('Pipe Pname, ' I'.Pnmbr; 1, '3 opened') 
uniteln ('Unable to open pipe '.Pname); 
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PipeRrad Function 

PipeRead reads a block of data from the specified pipe, 
definition of this function is: 

FUNCTION PipeRead (NPipe: integer; VAR Info: DrvBlk): 


+========== 

! Parameter- 

! Data Type 

= + 1= = = = = = = =; = = = = ; 

! Description 



! NPipe 

! integer 

! Pipe 

numb er 

for 

read 

! Info 

I DrvBlk 

i Data 

buffer 

for 

read 


The 

integer 



+ 


+ ■+■ H + 

This function returns the number of bytes written if the read is 
successful. Otherwise, a negative error code is returned. 
PipeRead is repeated for each block to be read from the pipe. 

An example of this function is: 

var Pstat.Pnmbr: integer; Pdata; DrvBlk; 

Pstat PipeRead (Pnmbr. Pdata ) ; 
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PipeWrite Function 

PipeWrite writes a block of data to the specified pipe. The 
definition of this function is: 

FUNCTION PipeWrite <NPipe,WLen: integer* 

VAR Info: DvvBlk): integer; 


! Parameter I Data Type i Description ! 

I NP i p e ! integer ! Pipe number for write ! 


WLeri 

| 

1 

integer 

1 

1 

Length of data 

to write 

Info 

1 

1 

DrvBlk 

1 

1 

Data buffer for 

write 


This function returns the number of bytes written if the write is 
successful. Otherwise* a negative error code is returned. 
PipeWrite is repeated for each block to be written to the pipe. 

An example of this function is: 

var Pstat-Pnmbr: integer; Pdata DrvBlk; 

Pstat : - PipeWrite (Pnmbr* 5iy, Pdata > ; 
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PipeCIRd F u n c t i on 

PipeCIRd closes the specified pipe for reading. The definition 
of this function is: 

FUNCTION PipeCIRd ( NP i p e : integer): integer; 

! Parameter ! Data Type ! Description 

! NPipe ! integer i Pipe number to close 

+ + + 

This function returns the status of the pipe command. If the 
pipe is empty. the pipe is deleted. 

An example of this function is: 

var P s ta t. Pnmh r : integer; 

Pstat : =■ PipeCIRd (Pnmbr); 


PipeCIWr Function 

PipeCIWr closes the specified pipe for writing. The definition 
of this function is: 

FUNCTION PipeCIWr < NP i p e : integer): integer; 

! Parameter! Data Type .'Description I 

! NPipe .'integer IPipe number to close ! 

-i ^ 1 1 

This function returns the status of the pipe command. Once a 
pipe has been closed for writing, no additional data can be 
wr i tten to it. 

An example of this function is: 
var Pstat. Pnmbr: integer; 

Pstat :- PipeCIWr (Pnmbr); 
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PipePurge function 

PipePurge purges the specified pipe. The definition of this 
function is: 

FUNCTION PipePurge (NPipe: integer), integer; 


Parameter 

! Data T y p e 

I Description 

NP j p e 

! integer 1 

! pipe number to purge 


This function returns the status of the pipe command. 
An example of this function is: 
var Pstat# Pnmbr : integer; 

Pstat : - PipePurge (Pnmbr); 


Pipeslnit Function 

Pipeslnit initializes the pipes data structures on the disk. The 
definition of this function is: 

FUNCTION Pipeslnit ( Bad dr , B s i z e : Longlnt): integer; 

I Parameter ! Data Type I Description ! 

Baddr ! Longlnt ! Pipes area base block number ! 


Bsize ! Longlnt ! Pipes area number of blocks 


This function returns the status of the pipe command. 

An example of this function is: 

var Pstat: integer; Paddr<Psize; Longlnt; 

Pad dr : - lOOOO; 

P s i z e : ~ 1 (>? 4; 

Pstat : -- Pipeslnit < Pad dr < P s i z e ) ; 
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The Corvus Disk Semaphores Interface Unit 
CCSEMA4 


The Corvus Disk Semaphores Interface Unit is used to interface 
with the Corvus disk controller semaphore functions. 

The c c SEMA4 unit USES unit ccDEFN from CCLIB. It also USES unit 
ccDRVio from C2LIB. 

The unit is included in user software by declaring: 

USES -t*U /CCUTIL/CCLIBD- ccDEFN, 

f$U /CCUTIL/C2L IB> ccDRVio, ccSEMA4; 


ccSEMA4 Unit Constants 

Constants defined in ccSEMA4 are: 


Semaphore Command Status Codes 


Identifier ! Value ! Description 

Sema4Kev ! n. n ! Current unit version number 


SemWa sSe t 
SemNo t-Se t 


128 1 Prior state was locked 
— •+■— — — — — — — — — — — — — — — — — - 
O ! Prior state was unlocked 


SeinFu 1 1 


253 ! Semaphore table is full 

! (32 active semaphores) 


SemDs kEr r 


-255 ! Disk error during write thru 


An error code less than -127 is a fatal disk error 
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CCSEMA4 Unit Type?, 

Data types defined in ccSEMA4 are: 




! Data Type ! Description 



emStr ! Semaphore name string 

+ h 

! str ing [ 83 < 

+ + 

emKeys ! Semaphore key 


! pac ked array Cl. . 83 of char; 

+ + 

emKeyList ! Semaphore key array record 

+ + 

! cate integer of 

I 1: (skey: array Cl.. 323 of SemKeys); 

! 2: (sbyt: array Cl.. 2563 of byte); 


H- 


ccSEMA4 Unit Variables 

Variables defined in ccSEMA4 are: 


Var i ab 3 e 

! Data Type ! 

! Description ! 

Sema4debua 

! bool ean 1 

I Semaphores debug switch ! 
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c c SEMA4 Unit Functions and Procedures 

Procedures defined in ccSEMA4 are: 

! Procedure ! Description ! 

•f = = r = s=s=;£ssss-fsss=.=:ssss=sssssssssss:ss£BB8BsiaaaaaBB«linB3!CBas:c + 

! ccSEMA4init 'Unit initialization ! 

■+■ + + 

Functions defined in ccSEMA4 are: 


+ = = = si + =s s: == ss s: as s s sc cx ss s as a: 35 ss sc ss ss s: e as as sx s 9 R as k k at as as b k k se b a ss be » x. 


Function 

l 

Descr iption 

SemLoc k 

1 

Lock semaphore 

SemUn lock 

t 

l 

Unlock semaphore 

SemC leer 

1 

Clear all semaphores 

SemStatus 

1 

+ 

Get semaphore status 


+ 


+ 


+ 


+ 


ccSFMA4inii; Procedure 

ccSEMA4init initializes the ccSEMA4 unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccSEMA4init (NetLoc: CDaddr); 

I Parameter ! Data Type ! Description ! 

I NetLoc I CDaddr ! Network location record ! 

+ h h + 

An example of this procedure is: 
var SnetLoc: CDaddri 
InitSlol (SnetLoc); 
ccSEMA4init (SnetLoc); 


Copyright 1983 Corvus Systems, Inc. 


September 1, 1983 








CCSEMA4 
Page 16-4 


Corvus Concept Pascal System Library 
Corvus Disk Semaphores Interface Unit 


SemLock Function 

SemLock locks the specified semaphore. The definition of this 
function is: 

FUNCTION SemLock (Key: SemStr): integer; 




! Parameter ! Data Type ! Description 




! Key ! SemStr ! Semaphore name to lock ! 

+ + + H 

This function returns one of the following codes: 

! Identifier ! Value ! Description 

! SemWasSet ! 128 ! Semaphore already locked 

+ k f 

! SemNotSet ! 0 ! Semaphore successfully locked 

+ + + 

! SemFull ! 253 ! Semaphore table is full/ 

! ! i semaphore not locked 

+ H + H 

! SemDskErr ! -255 ! Disk error 

+ + + 

1 An error code less than -127 is a fatal disk error 
+ 


An example of this function is: 

var Sstot: integer; Sname: SemStr; 

Sname :- 'KLL'; 

Sstat := SeinLot k (Sname); 
case Sstat of 

SemWasSet: uiriteln ('Semaphore already locked'); 
SemNotSet: uiriteln ('Semaphore successfully locked'); 

SemFull: uiriteln ('Semaphore table is full'); 
otherwise: uiriteln ('Disk error'); 
end; (cast) 
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SemUnlock Function 

SemUnlock unlocks the specified semaphore. The definition of 
this f unct j on is: 

FUNCTION SemUnlock (Key: SemStr): integer; 

+ 

I 
I 

+ 
I 

+ 

This function returns one of the following codes: 


I 




Parameter ! Data Type 


Description 




SemStT' 


Semaphore name to unlock 


! Identifier ! Value ! Description 

! SemWasbet ! 128 ! Semaphore successfully unlocked 

+ +- 

SemNotSei ! 0 ! Semaphore was not locked 

+ e 

SemDs kSrr I -255 ! Disk error 

+ h 

An error code less than -127 is a fatal disk error 



An example of this function is: 


var Sstat: integer; Sname: SemStr; 

Sname : - ' KL L ' ; 

Sstat :— SemUnlock (Sname); 
case Sstat of 

SemUasSet: writeln < 'Semaphore successfully unlocked'); 
SemNotbet: writeln ('Semaphore was not locked'); 
otherwise: writeln ('Disk error'); 
end; (case} 
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SemClear Function 

SemClear clears the semaphore table. 

FUNCTION SemClear: integer) 

This function returns one of the following codes: 


+= 

1 

Identifier 

! Value ! Description 

i 

i 

■ 

1 


! 0 ! Semaphore table cleared 

t 

l 

1 

+ - 

An error code 

less than -127 is a fatal disk error 

i 

l 

- + 


An example of this function is: 

var Sstat: integer; 

Setat :— SemClrar; 
if Sstat ; = O 

then writeln ('Semaphore table cleared') 
else writeln ('Semaphore table clear failed'); 
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SemStatus Function 

SemStatus returns the names of locked semaphores. The definition 
of this function is: 

FUNCTION SemStatus (VAR KeyBuf: SemKeyList): integer; 


! Parameter ! Data Type ! Description ! 

! KeyBuf ! SemKeyList i Semaphore name table ! 

+ + + + 


This function returns one of the following codes: 

! Identifier I Value ! Description ! 

! . . . . I 0 ! Semaphore table read successful ! 

+ + + + 

! . . . . I -2 ! Unable to enter PREP mode ! 

1 ! i (could not find DIAG. DATA) 

+ + + 4 

I An error code less than -127 is a fatal disk error ! 

4 4 

An example of this function is: 

var Sstat: integer; Skeys: SemKeyList; 

Sstat :- SemStatus (Skeys); 
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READER'S COMMENTS 

By responding with your comments/ Corvus Systems can develop 
better documentation to meet your needs. 

Did you find errors in this manual? If so> please specify by 
page. 


Did you find this manual understandable) useable, and 
well-organized? Please make suggestions for improvements. 


Is there sufficient documentation for use of the products 
described in this manual. If not/ what material is missing and 
where should it be placed? 


Please indicate the type of user/reader that you most nearly 
represent. 

Software engineer 

Hardware engineer 

System integration 

Engineering management 

Non-technical 


Name Date 

Organization 

Street 

City State Zip 

Please return this form to: Corvus CONCEPT Support Group 

Corvus Systems/ Inc. 

2029 O'Toole Avenue 

San Jose/ California 95131 
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